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FOREWORD 


The computer program described in this manual was 
developed under Contract Numbers NAS8-31101 and 
NAS8-31624. These Contracts were monitored by C. 
Bianca of the George C. Marshall Space Flight Center 
K. Roper performed all the computer program coding. 
The author would like to acknowledge the informative 
technical discussions held with J. E. Collipriest, J 
R. M. Ehret, and A. F. Liu during the course of this 



INTRODUCTION 
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In order to include the important consideration of structural 
failure due to the presence of flaws end crack-like defects in 
aerospace hardware; it is necessary to have a computer program 
capable of performing crack growth analysis that is easy to use 
and generally applicable. The need for a computer program (as 
opposed to simple hand calculations) arises from the complexity of 
growth descriptions required for crack growth analysis of real 
materials in complex structure under a variety of loading and 
environmental conditions. The MSFC crack growth computer program 
developed by Del West was designed to meet this need. 

The MSFC crack growth computer program calculates crack growth 
for part through cracks, through the thickness cracks and cracks 
which are transitioning from part through cracks to through the 
thickness cracks. The computer program has been written to be 
flexible in its operation and to be easily adapted and changed 
as fracture mechanics technology changes and/or the design usage 
of the program changes. 

The computer program is essentially an integration routine which 
calculates crack growth from an initial defect size and terminates 
calculation when the crack is sufficiently large for a critical 
condition (instability or rapid growth) to be reached. The 
initial defect size may be designated by the user or established 
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by the computer program on the basis of proof test logic. In 
addition, if a design life is not met for a particular structure, 
the program has the capability of varying the thickness of the 
structure or initial defect size so as to establish the geometry 
which will meet the design requirements. 

During the period when a crack is a part through crack, crack 
growth in the depth and surface directions may be different due 
to variations in stress intensity factors and/or directional 
dependence of material properties. The MSFC computer program 
considers both of these effects and hence incorporates realistic 
crack shape changes. During the period when a crack is transi- 
tioning from a part through crack to a through the thickness 
crack, the crack lengths on the backside and the frontside are 
different. The MSFC computer program tracks the growth of these 
two dimensions separately; evaluating the stress intensity factors 
at each surface until these dimensions are the same and the crack 
has completed its transition to a through the thickness crack. 

The computer program allows two different methods of load input. 
For each step in the loading block, the user specifies either: 

(1) Maximum Stress, Minimum Stress, Number of Cycles or (2) 

Maximum Stress, Stress Ratio, Number of Cycles. It should be 
noted that if crack growth mechanisms other than fatigue are 


being considered (e.g., static stress corrosion) the appropriate 
rate variable can be used instead of cycles (e.g., time at load) 
in conjunction with appropriate material constants as described 
below to perform a wide range of phenomenological studies. 

The use of a limit load (a load which may be higher than any load 
in the actual spectrum) to determine the end of design life 16 a 
common practice. The MSFC computer program ha6 therefore been 
written to consider a separate limit load (apart from those in 
the spectrum) and to determine when it causes failure. However, 
after failure due to limit load occurs, the crack growth calcula- 
tion continues. The limit load failure information i6 included 
in the output. 

The crack growth rate material properties may presently be input 
into the program in any of four formats: (1) Paris equation with 

upper and lower outoffs in stress intensity factor; (2) Forman 
equation with upper and lower cutoffs in stress intensity factor; 
(3) Collipriest-Ehret equation with additional upper and lower 
cutoffs in stress intensity factor; (A) tabulated as a function 
of stress intensity range and stress ratio. An important feature 
of the material property description is that different material 
properties (crack growth equations, fracture properties, yield 
stress, etc.) may be designated for each step in the loading 
spectrum. Thus varying temperatures and environments may be 


considered . 
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The MSFC crack growth computer program has the capability of 
utilizing any one of three crack growth retardation models. Of 
course, the effects of retardation on crack growth will not be 
considered if the user does not request it. The three models 
presently available are: (1) Willenborg; (2) Wheeler; (3) Grumman 

Closure Model. 

The module which performs stress intensity calculations currently 
Includes stress intensity equations for the following geometries: 

1) Crack in a finite width finite thickness plate - part through 
crack, transition crack, through crack. 

2) ASTM E399 compact specimen - through crack. 

3) Single crack emanating from a hole - corner crack, internal 
crack, transition crack, through crack. 

4) Two cracks emanating from a hole - corner crack, internal 
crack, transition crack, through crack. 

5) Single crack emanating from a pin loaded lug - corner crack, 
internal crack, transition crack, through crack. 

6) Two cracks emanating from a pin loaded lug - corner crack, 
internal crack, transition crack, through crack. 

7) Crack emanating from a notch - corner crack. Internal 
crack, transition crack, through crack. 

8) Cracks emanating from double notches - corner crack, internal 
crack, transition crack, through crack. 



9) Cracks emanating from shoulder radii - corner crack, internal 
crack, transition crack, through crack. 

As many runs (each with varying input conditions) as desired may 
be stacked. As additional runs are made, only that section of 
data which is changed (l.e., loads, material properties, or 
geometry) need be reentered. Output format can include tabulated 
and/or plotted data. Minimum tabulated output for each run con- 
sists of information on input data and failure (crack lengths, 
cycles, etc.) as well as crack lengths, stress intensity factors, 
and crack growth rates for the first and last cycle of each stress 
level in the first load block applied as a part through crack, 
transitional crack or through crack. Additional information (crack 
lengths, stress intensity factors, and crack growth rates) for 
particular blocks and loading steps may be requested by the user. 
The plotted output consists of plots of surface and crack depth 
lengths plot ted against the number of loading blocks and cycles. 

The user may specify plotting Increments or 6lmply use Increments 
chosen by the computer program. 

A flow chart showing all subroutines is presented in Figure 1, 
and a description of each subroutines primary function is pre- 


sented in Table I. 











TABLE I 


SUBROUTINE FUNCTIONS 


SUBROUTINE 

FUNCTION 

MAIN 

Reads Input, Sequences Runs, Performs 
Design Iterations, Calls Proof Test 
Module, Call6 Appropriate Crack Growth 
Module . 

PROOF 

Calculates initial flaw size based 
on proof test logic. 

PTCGRW 

Calculates crack growth for a part 
through crack. 

TRANS 

Calculates crack growth for a 
transitional crack. 

TCGROW 

Calculates crack growth for a 
through crack. 

KANAL 

Evaluates all stress intensity 
factors 

DAMAGE 

Calculates crack growth rates 

INTP 

Interpolates stress intensity or 
crack growth rate tables. 

RETARD 

Modifies input to damage to account 
for retardation effects. 
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Figure 2 - Functional Flow 
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TECHNICAL APPROACH 


The essence of the crack growth analysis procedure consists of: 

1) Establishing an initial defect size: Either directly as 

input or as a result of proof test logic, or as a result of 
a design interation. 

2) Considering each loading step in a load block in turn. 

3) Evalutating stress intensity factors, using the stresses from 
the step under consideration. 

4) Using these stress intensity factors (and previous loading 
history if retardation is considered) to calculate crack 
growth rate. 

5) Consider a small amount of growth ( 1% of current crack size) 

and calculate the number of cycles it takes to grow that 
amount. If that amount exceeds the number of cycles not yet 
consumed in the step than only those remaining cycles are 
used and a corresponding crack growth increment is calculated. 

6) Crack lengths are incremented, cycle count is incremented. 

7) This process is continued until all cycles in the step are 
considered. The next step is then called. At the end of a 
block the first step is called again. 

8) The calculation ends when: 

a) The critical stress intensity (either at the surface or 

at the depth of a crack) is exceeded. 

- 8 

b) There is no crack growth (<10 in.) for an entire block. 


■j 


1 

1 

i 

\ 


•: 

i 

\ 

) 

\ 

! 

j 

1 


■a 

j 


c) The crack growth rate goes to infinity (when using the 
Forman equation for cr*.ck growth rate). 


d) The maximum number of blocks is exceeded. 

9) All input and all output data are in units compatible with 
Kips and Inches. (e.g. t Ksi, Ksl /Tn. and in/cycle.) 

SUBROUTINES 


The subroutine operations are each described below. Since MAIN 
serves primarily as a calling routine, it will be clearest if we 
describe MAIN last. 


PROOF 


The proof test module uses an iteration scheme of successive 
bisections and Inverse parabolic Interpolation to solve the 
nonlinear equations that arise in defining the crack size that 
will cause an applied stress Intensity factor due to the proof 
load to equal the critical stress Intensity factor. The critical 
condition is checked at both the depth and surface of a part 
through crack. The smallest crack size that produces criticality 
is the result. The critical stress intensity factors used for 
the proof test may be different than those used to predict the 


Thus, changes in environments and their concomitant changes in 
material properties may be accounted for (e.g., a cryogenic proof 
test). Either the crack depth (a), the surface length (c) or the 
shape (a/c) for a part through crack may be kept constant for the 
proof test calculation. 

PTCGRW , TRANS, TCGROW 

The subroutines PTCGRW, TRANS, and TCGROW calculate the crack 
growth increments, return to MAIN for information on the next 
loading step, consider when to end the calculation and transfer 
to each other (PTCGRW -*■ TRANS -*• TCGROW) as required. For a part 
through crack PTCGRW performs these functions until TRANS is 
called. TRANS is called when the crack depth equals the plate 
thickness. TRANS performs these functions while the crack is 
transitioning to a through crack and calls TCGROW when the back 
surface length exceeds 95% of the front surface length. TCGROW 
performs these functions when the crack i6 a through crack and 
may be called by TRANS or in those cases when a through crack is 
considered initially it is called from MAIN. 

KANAL 

KANAL is a subroutine which returns factors, which when multiplied 
by the appropriate loading term yields stress intensity factors. 
Thus the loading input must be compatible with the crack configura- 
tion considered. For the configurations currently in the program 


the corresponding name (KTYPO) and required load description are 
given in Table II. The geometrical arrangement of each configura 
tion 1 s given in Figure 3. Detailed descriptions of the stress 
intensity factors are given in the Appendix. 

DAMAGE 

The subroutine DAMAGE currently contains three equations and a 
provision for tabulated data for calculating crack growth rate. 

In all cases the Independent variables are the effective stress 
intensity factor, KE, and the effective stress ratio, RE. When 
retardation is not used KE i6 simply the stress intensity range 
(KM AX - KMIN) and RE is simply the stress ratio. When retarda- 
tion is used, KE and RE are calculated in RETARD. 

* ne following equations all contain material property constants 
designated by D(MC,I,J). NC indicates whether the surface (NC • 
or depth (NC ■ 2) is being considered. I distinguishes the 
various constants in that equation and indicates the order of 
the constant on the input cards. J is the material type number 
which is also input with end loading step. In order to call out 
the proper equation the corresponding equation name (NEQ) must 
be specified during input. Note that each material type could 
use a different NEQ. 


TABLE II 


j 

j 

j 

| 

- Stress Intensity Factors in Kanal | 


KTYPO(l) 

KTYPO (2) 

Conf iguration 

Load Description 

1 

1 

PTC - center crack 

Gross stress 

1 

2 

None 


1 

3 

Single corner crack 
at hole 

Gross stress 

1 

4 

Double corner crack 
at hole 

Gross stress 

1 

5 

Single internal 
crack at hole 

Gross stress 

1 

6 

Double internal 
crack at hole 

Gross stress 

1 

7 

General tabular 
description 

As required by 
tabular description 

1 

8 

Single corner crack 
pin loaded lug 

Pin load 

1 

9 

Double corner crack 
pin loaded lug 

Pin load 

1 

10 

Single internal 
crack pin loaded lug 

Pin load 

1 

11 

Double Internal 
crack pin loaded lug 

Pin load 

1 

12 

Corner crack at 
single notch 

Gross stress 

1 

13 

Corner cracks at 
double notch 

Gross stress 

1 

14 

Internal crack 
at single notch 

Gross stress 

1 

15 

Internal cracks at 
double notches 

Gross stress 


i 
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TABLE II - continued 


KTYPO(l) KTYPO (2 ) 


Configuration 


Load Description 


1 


16 


Corner crack at 
shoulder 

Gross stress 

1 


17 


Internal crack 
at shoulder 

Gross stress 

2 


1- 

17 

Appropriate transi- 
tion crack corres- 
ponding $o through 
crack case - see 
KTYPO (1) *3 List 

As described in 
corresponding 
KTYPO ( 1)* 3 List 

3 


1 


Center through 
Crack 

Gross stress 

3 


2 


Compact Specimen 
( ASTM E399-74) 

Pin load 

3 

3 

or 

5 

Single through 
crack at hole 

Gross stress 

3 

4 

or 

6 

Double through 
crack at hole 

Gross stress 


3 7 
3 8 or 10 

3 9 or 11 
3 12 or 14 
3 13 or 15 


General tabular 
description 

Single through 
crack - pin loaded 
lug 

Double through crack 
pin loaded lug 

Through crack at 
single notch 

Through cracks at 
double notches 


As required by 
tabular description 

Pin load 

Pin load 
Gross stress 
Gross stress 


i 

i 

j 

] 


3 


16 or 17 


Through cracks 
at shoulder 


Gross stress 




















NEQ 


EQUATION 



1 

2 

3 

4 


Collipriest-Ehret 

Paris 

Forman 

Tabulated Data 


The use of "J" allows various loading steps to use different 
crack growth rate equations and thus variations in environment 
and crack growth phenomenon (fatigue or stress corrosion) can be 
accounted for. 

The Collipriest-Ehret equation is: 


4^-0, EXP 
dn 1 


C 2 TANH 


-1 


2 \ 
ln(KE / (1-RE) D (NC.3.J) D (NC.4.J )' 

In (1-RE) D (NC,3,J)/D (NC,4,J) 


- In 


D (NC . 3 . J )| 


D (NC , 4 , J) I 


D ( NC , 2 » J ) 

C x - D(NC,1, J)f D(NC,3, J) D (NC,4,J>J 2 

where 

D(NC,1,J) Crack growth rate coefficient 

D(NC,2,J) Dimensionless coefficient relating to 

midrange slope. 

Critical stress intensity (upper asymptote) 
Threshold stress intensity range (lower 
asymptote) 


D (NC , 3 , J) 
D (NC , 4 , J) 


The Paris equation is: 


4^ - D (NC , 1 , J) KE D(NC * 2 ‘ J > 


The Forman equation is: 

l£ D(NC.l.J) ke d(nc » 2 ’ j) 
dn “ (1-RE) D (NC,3,J)-KE 


where 

D(NC,1,J) Crack growth rate coefficient 

D(NC,2,J) Crack growth rate exponent 

D(NC,3,J) Critical stress intensity (upper 

asymptote) 


Tabulated data is in input as a function of stress intensity 
range and stress ratio. If retardation is to be used, the 
variables are effective stress intensity range and effective 
stress ratio. The computer program performs linear interpolation 
in stress ratio and logarithmic interpolation in stress intensity 
range. This results in a "Paris Equation" fit between consecutive 
data points at a constant stress ratio. All stress ratios be- 
tween the highest given in the Table and 1.0 use the crack growth 
rate at the highest stress ratio date supplied. The lowest 
stress ratio required by the loading spectrum must be within 
the range of the input data. 

The format for crack growth data input is shown in Figure 4. 

For this mode of crack growth description only three material 










RETARD 


The subroutine RETARD currently contains three retardation 
models. In each of these a crack tip plastic zone r y is cal- 
culated according to the equation 

r - l x K^max 

y (2 tt)Pz x o y# 2 

where Fz is a constant depending on the degree of plane 6tress 
versus plane strain. For plane stress Pz - 1. For plane strain 
Pz - 3. 

The following is the retardation equation number for each re- 
tardation model. 

NRET 

1 Willenborg Model (Ref. 1) 

2 Wheeler Model (Ref. 2) 

3 Grumman Closure Model (Ref. 3 ) 

The Willenborg retardation model calls for no constants other 
than Pz. The only material property input for this model is 
therefore 

CRCRC.l.J) - Pz 

The "Wheeler" model in this computer program is actually a var- 
iation of the model originally presented by Wheeler. Wheeler 
used a modification to the crack growth rate to produce a re- 
tardation effect and we have used a modification to the dependent 
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variable KE. If the Paris equation is used for crack growth 
rate the "Wheeler" model in this computer program is identical 
to the model presented in Ref. . The input material prop- 
erties for this model are 

CR(NC,1,J) - Pz 
CR (NC , 2 , J) - m/n 

where m is identical to the "m" used in Ref. and n is the 
exponent in the Paris equation (i.e., if the "Wheeler m" were 
5 and the Paris "n" 4, the input value for CR(NC,2,J) is 1.25). 


The details of the Grumman Closure model are too complex to be 
described here. The input is described below 


Input Quantity 
CR (NC , 1 , J) 

CR (NC , 2 , J) 
CR(NC , 3 , J) 

CR (NC , 4 , J) 

CR (NC , 5 , J) 
CR(NC , 6 , J) 

CR (NC , 7 , J) 


Name in Reference 3 
Pz 



P 

NSAT 


v 


1 


B 


INTP 


INTP is a subroutine which interpolates tabular data. It is 
called from either KANAL or DAMAGE. When called from KANAL 
it will use the .appropriate input Table and linearly inter- 
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polate in both (a) and (c) for part through cracks and 
linearly in (c) for through and transition cracks to obtain 
values of stress intensity factors. When called from DAMAGE 
it will use the appropriate input Table and interpolate lin- 
early in stress ratio and logarithmically in stress intensity 
to obtain crack growth rates. 

MAIN 


MAIN reads all input data; controls calling sequences of sub- 
routines PROOF, PTCGRW , TRANS and TCGROW; perforins iterations 
on thickness or initial crack size to obtain desired crack 
growth lives; and controls output. 
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INPUT 


There are 27 distinct data input card formats. These are described 
below and illustrated on pages 36 and 37. Pages 38 and 39 show when 
each card type is required. The superscript x designates fixed point 
numbers. All others are floating point. 


CARD 

TYPE 

FIELD 

NOMENCLATURE 

DESCRIPTION 

1 

1-80 

TITLE 

Any alphanumeric description 
of group of runs . 

2 

1-4 

NRUNS X 

Total number of runs (one run 
corresponds to a unique set 
of input data . ) 

2 

5-10 

NBLOCK*' 

Maximum number of blocks to be 
considered. Crack growth cal- 
culation ceases when the number 
of blocks exceeds this number . 

2 

11-14 

MBLOCK* 

Block interval for which addi- 
tional data will be printed 
(e.g., 3 would imply that blocks 
3 ,6, 9, 12 . . . . etc . would have 
data printed out). 

2 

15-18 

MSTEP X 

Step interval for which addi- 
tional data will be printed 
(in the blocks called out 
above) . 

3 

1-10 

CSTRS 

Constant multiplier for stress 
inputs. Allows stress spectrum 
to be varied by changing one 
number only. (e.g., one run 
with this constant 1.1, will 
show the effect of varying 
the stress 10%). 

3 

11-14 

NSUP X 

Constant for suppression of 


retardation in crack growth 
analysis. If zero, retarda- 
tion is not considered. If 


retardation is to be considered, 
constant must be 1. 
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FIELD 


15-18 


19-22 


23-26 


27-30 


31-34 


NOMENCLATURE 


DESCRIPTION 


NLOAD X 


NGEOM X 


NMAT X 


ITERTP* 


x 

ITER 


Constant to indicate whether new 
load data is to be input. If zero, 
(or any number not equal to 1) 
load data will not be read in and 
load data from previous run will be 
used. If it is 1, card types 4 
and 5 must follow. 

Constant to indicate whether new 
geometry data is to be input. If 
zero (or any number other than 1) 
geometry data will not be read in 
and geometry data from previous run 
will be used. If it is 1, card 
types 6 and 7 must be read in. 

Constant to indicate whether new 
material data is to be input. If 
zero (or any number other than 1) 
material data will not be read in 
and material data from previous 
run will be used. If it is 1, card 
types 8, 9, 10, and 11, 12, 13, if 
needed must be read in. 

Parameter that identifies variables 
for iteration to find geometry that 
survives the desired life. If 
ITERTP » 1, the thickness is varied. 
If ITERTP ■ 2, the surface crack 
length is varied and the crack depth 
(if a part through crack) 16 kept 
constant. If ITERTP • 3, the crack 
depth is varied and the surface 
length is kept constant. If 
ITERTP ■ 4, the crack shape is 
kept constant and both the crack 
depth and surface length are varied. 
Field may be left blank if ITER 
is zero (or blank) . 

Maximum number of iterations to 
find thickness or crack size that 
produces the desired life. May 
not exceed 10, may be left blank. 
Next two items on card three may 
be left blank, if ITER equals zero 
(or blank) . 


i 

i 

i 


i 


■ 

1 


I 

i 

i 


I 


l 

; 

i 

i 

i 


i 

I 

I 

'I 


I 

I 

I 


FIELD NOMENCLATURE 


DESCRIPTION ' 


35-44 


45-54 


PIT 


BLIFE 


Parameter to control rate of con- 
vergence on design iteration. 
Usually set to exponential power 
in Paris crack growth equation 
for crack growth data. When 
other crack growth equation is 
used, approximate value of a 
"Paris exponent" will be suf- 
ficient. Must always be greater 
than 1. 

Desired life in blocks. 


55-58 


59-62 


63-72 


1-4 


NPROOF X 


IPLOT* 


PCYC(l) 


NSTEP X 


x 


IR 


Parameter that identifies var- j 

iables in proof test logic. If \ 

zero (orblank) no proof test f 

logic is performed. If 1, the 
crack surface and depth of a part 
through crack is varied and the 
shape held constant; if 2 the 
surface crack length of a through j 

i crack is varied; if 3 the crack 1 

depth of a part through crack is \ 

varied and the surface crack 1 

length is held constant; if 4 the j 

surface crack length is varied j 

and the depth is held constant. 

j 

1 

Parameter to indicate whether i 

output is to be plotted. If | 

zero (or blank) data is not f 

plotted. Any other value pro- jj 

duces a plot of crack lengths f 

versus blocks and cycles. J 

| 

Interval in cycles between j 

plotted data points. If zero, | 

plotted points will correspond j 

to tabular output. ! 

I 

Number of steps in load blocks. | 

l 


5-8 


Zero if input format includes 
minimum stress, 1 if input 
format includes stress ratio. 




FW3msswK*« t -n 


) 


FIELD ’ NOMENCLATURE 


DESCRIPTION 


9-18 

SIGLM 

Limit stress for additional end 
of life determination. Failure 
due to limit load does not ter- 
minate crack growth calculation. 

1-10 

SMAX 

Maximum 6 tress . 

11-20 

SMIN 

Minimum stress if IR • 0, stress 
ratio of IR * 1. 

21-30 

UNIT 

Number of cycles or alternate 
rate variable. 

31-34 

TYPE X 

Material property data type to 
be used. 

1-4 

KTYPO ( 1 ) X 

Initial crack type; 1 corresponds 
to a part through crack; 2 cor- 
responds to a transition crack 
and 3 corresponds to a through 
crack . 

5-8 

KTYPO (2 ) X 

Parameter which specifies geo- 
metry (e.g., corner crack at 
hole) See page 17 for geometry 
descriptions . 

1-10 

W 

Plate width. 

11-20 

TH 

Plate thickness 

21-30 

CO 

Initial half surface length for 
part through crack or through 
crack. Corresponds to initial 
value of "C" in Figure 3. 

U> 

0 

1 

o 

AO 

Initial crack depth for a part 
through crack. May be left zero 
for through cracks. 

41-50 

H 

Configuration dimension as 
described on pages 17 tnrough 19. 



D FIELD NOMENCLATURE DESCRIPTION 

E 


51-60 RAD Hole or notch radius or notch 

height as described on pages 17 
through 19. 


Cards 8-14 are only used when KTYPO(2) is set equal to 7. 


1-4 NKTMX* 


1-10 Cl (NT , I) 

78-80 

1-10 Al (NT , J) 

78-80 

1-10 FI (NT , I , J ) 

11-20 
etc . 

1-10 C2 (NT, I) 

78-80 


Number of sets of stress intensity 
tables, For PTC there are 2 tables 
per set. The first table of each 
set is for surface stress intensity 
factors. The second table is for 
the stress intensity at the depth. 
See Appencix for a description of 
the tables. For through cracks 
there is one table per set. Three 
is the maximum number of sets 
allowed . 

Values of surface crack length 
for table NT surface stress in- 
tensity factor. Maximum number 
of values is 25. 

If letters "END" appear in this 
field the value in field 1-10 is 
the last entry in the list. 

Values of crack depth for table 
NT of surface stress intensity 
factor. Maximum number of values 
is 25. These are not read in if 
crack is a through crack. 

If letters "END" appear in this 
field the value in field 1-10 is 
the last entry in the list. 

Table of surface stress intensity 
factor coefficients at above crack 
lengths. Each series of cards is 
for a constant value of surface 
crack length (e.g., if the config- 
uration is a through crack each 
card will contain one table value). 

Values of surface crack length for 
table NT depth stress intensity 
factor. Maximum number of values 
is 25. 

If letters "END" appear in this 
field the value in field 1-10 is 
the last entry in the list. 


j 
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I 

•j 
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CARD 

TYPE 

PIELD 

NOMENCLATURE 

13 

1-10 

A2 (NT, J) 


78-80 


14 

1-10 
11-20 
etc . 

F2 (NT , I , J) 

15 

1-4 

N J* 

16 

1-10 

SIGYS 

16 

11-14 

NEQ X 

16 

15-18 

NRET 

16 

19-22 

NDUP X 


16 

23-32 

KCRC 

16 

33-42 

KOC 


DESCRIPTION 


Values of crack depth for table 
NT of depth stress intensity 
factor. Maximum number of values 
is 25. These are not read in if 
crack is a through crack. 

If letters "END" appear in this 
field the value in field 1-10 is 
the last entry in the list. 

Table of depth stress intensity 
factor coefficients at above 
crack lengths. Each series of 
cards is for a constant value of 
depth crack length (e.g., if the 
configuration is a through crack 
each card will contain one table 
value) . 

Number of material property types. 
Yield stress . 

Equation to be used for crack 
growth. 1 * Collipriest-Ehret , 

2 ■ Paris, 3 * Forman, 4 * table. 

Model to be used for retardation 
0 ■ none, 1 « Willenborg, 2 * 
Wheeler, 3 ■ Grumman Closure 
(not debugged) . 

Constant to Indicate whether 
crack growth properties are the 
same in depth and surface dir- 
ections. If constant • 1, they 
are not and two sets of D's and 
CR's (see cards 20, 21, 22, 24, 
and 26) must be input. 

Critical stress intensity in 
surface direction (upper cutoff). 

Threshold stress intensity in 
surface direction (lower cutoff). 


y 


i 


i 

l 

j 

i 

; 


i 


| 

* 

i 

i 

t 

] 


i 

\ 

| 

■I 


I 

5 


\ 

i 


i 

l 


i 

1 


16 


43-52 


KCRA 


32 


Critical stress intensity in depth 
direction. Need not be input if 
crack is a through crack. 


CARD 

TYPE 


FIELD 


NOMENCLATURE 


DESCRIPTION 


16 53-62 KOA 

Cards 17 - 22 only 

17 1-10 KE (NT, I) 

78-80 

18 1-10 RE (NT , J) 

78-80 

19 1-10 DCDN (NT , I , J) 

11-20 

etc . 

20 1-10 KE (NT , I) 

78-80 

21 1-10 RE (NT , J) 

78-80 


Threshold stress intensity in 
depth direction. Need not be 
input if crack is a through 
crack 

used when NEQ * 4 

Values of stress intensity factor 
range for table of crack growth 
rates. Maximum number is 25. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in list. 

Values of stress ratios for crack 
growth rate table. At least one is 
required. Maximum number is 25. 

If letters "END" appear in this 
field, value in field 1-10 is last 
entry in list. 

Values of surface crack growth rate 
corresponding to above stress in- 
tensity values and stress ratios. 
Each series of cards is for a 
constant value of stress intensity 
range (e.g., if 4 values of RE 
were to be used, each card type 
15 would have 4 entries). 

Values of stress intensity factor 
range for table of crack growth 
rates. Maximum number is 25. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in list. 

Values of stress ratios for crack 
growth rate table. At least one 
is required. Maximum number is 25. 
If letters "END" appear in this 
field, value in field 1-10 is last 
entry in list. 


33 


X 


5 



i 


1 "■ 


CARD FIELD .NOMENCLATURE DESCRIPTION 

TYPE 


22 


23 


24 


25 


26 


27 


1-10 
11-20 
e tc . 


1-10 

78-80 

1-10 

78-80 

1-10 

78-80 

1-10 

78-80 


DADN(NT,I,J) Values of depth crack growth rate 

corresponding to above stress in- 
tensity values and stress ratios. 
Each series of cards is for a 
constant value of stress intensity 
range (e.g., if 4 values of RE 
were to be used, each card type 
15 would have 4 entries) . 


D ( 1 , I , J) 


D (2 , 1 , J) 


CR (1 , I , J) 


CR( 2 , I , J) 


Constants in crack growth equations- 
surface direction. See text for 
description of constants. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in list. 

Constants in crack growth equation- 
depth direction. If NDUP 4 1, card 
is not used. See text for descrip- 
tion of constants. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in li6t. 

Constants in retardation equation- 
surface direction. See text for 
description of constants. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in list. 

Constants in retardation equation- 
depth direction. If NDUP 4 1, card 
is not used. See text for descrip- 
tion of constants. 

If letters "END" appear in this 
field, value in field 1-10 is 
last entry in list. 


Card 27 is not used if NPROOF - 0 


1-10 FIXED Value of quantity which remains 

constant during proof test 
evaluation. 


27 


11-20 


KCPRF 


Value of critical surface stress 
intensity factor for proof test. 


Value of critical stress Intensity 
at depth for proof test. 

Lower bound on variable in proof 
test (smallest expected value on 
crack size or shape). 

Upper bound on variable in proof 
test (largest expected value on 
crack size or shape) . 

Proof stress (or load). 

Number of iterations to find 
crack size in proof test. If 
zero or blank, default condition 
sets number of iterations to 100. 


i 

i 

i 


e 

I 

j 

I 

i 

I 

I 

i 
























.CARD 

TYPE 

FIELD 

WHEN INPUT DATA REQUIRED 

1 

1-80 

Once for each session 


2 

1-16 

Once for each session. 


3 

1-26 

Once for each run. 


3 

27-54 

Whenever an iteration on thickness 
to meet design life is desired. 

3 

55-58 

Whenever proof test logic 

is used. 

3 

59-72 

Whenever plotted output is 

required . 

4 

1-18 

Whenever NL0AD • 1. 


5 

1-34 

NSTEP times when NL0AD - 1 

• 

6 

1-8 

Whenever NGE0M * 1. 


7 

1-60 

Whenever NGE0M « 1. 


8 

1-4 

Whenever KTYP0(2) - 7. 


9 

1-10 

* Whenever KTYP0(2) - 7. % 


10 

1-10 

* Whenever KTYP0(2) - 7 and 
KTYPO(l) - 1. 


11 

1-80 

* Whenever KTYP0(2) - 7 


12 

1-10 

* Whenever KTYP0(2) - 7 and 
KTYPO(l) - 1. 

> NKTMX Times 

13 

1-10 

* Whenever KTYP0(2) - 7 and 
KTYPO(l) - 1. 


14 

1-80 

* Whenever KTYP0(2) - 7 and 
KTYPO(l) - 1. J 


15 

1-4 

Whenever NMAT ■ 1. 
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CARD 

TYPE 


; WAW* <5 rr$> irea ;HW»yyi »>»aj.:. 


FIELD 


WHEN INPUT DATA REQUIRED 


16 

1-62 

* Whenever 

NMAT - 1. 

17 

1-10 

♦Whenever 

NEQ 

- 4. 

18 

1-10 

♦Whenever 

NEQ 

- 4. 

19 

1-80 

♦Whenever 

NEQ 

* 4 . 

20 

1-10 

♦Whenever 
NDUP ■ 1. 

NEQ 

■ 4 and 

21 

1-10 

♦Whenever 
NDUP -■ 1. 

NEQ 

* 4 and 

22 

1-8 

♦Whenever 
NDUP - 1. 

NEQ 

* 4 and 

23 

1-10 

♦Whenever 
NMAT ■= 1. 

NEQ 

4 4 and 

24 

1-10 

♦Whenever 
NDUP - 1 

NEQ 

and 

^ 4 and 
NMAT - 1 

25 

1-10 

♦Whenever 
NMAT - 1 

NEQ 

and 

4 4 and 
NRET 4 0 

26 

1-10 

♦Whenever 
NMAT - 1 

NEQ 

and 

4 4 and 
NRET 4 0 

27 

1-70 

Whenever 

NPROOF 4 0 


"\ 


r NJ Times 


* Indicates card types that may be repeated. 


1 




CONTROL OF OUTPUT 




*,f ' ' ' 


In addition to information describing the input data and final 
fracture, the computer program output consists of crack lengths, 
stress intensity factors, crack growth rates and cycle counts. 
These are printed out for the first and last cycle in the step. 

This data is always printed for each step of the first block 
encountered in any of the growth modules (PTCGRW, TRANS or TCGROW) . 
This data may also be printed out for additional blocks and steps' 
as desired by the user. These additional blocks and steps are con- 
trolled by specifying the increment for blocks and steps for which 
print out will be made by MBLOCK and MSTEP respectively. Thus, if 
every step in every other block is wanted, MBLOCK is set equal 
to 2 and MSTEP is set equal to 1. 

Plotted output is supplied when IPLOT is a value not equal to one. 
Typical plotted output is presented in the Appendix. The spacing 
of each data point in the plot is set by the user through PCYC(l). 
PCYC(l) is the increment in cycles between successive data points. 
If PCYC(l) is zero, the plotted data points will correspond to 
the tabulated data points as described above. Sample output is 


shown in Figure 4. 





INPUT FOR ADDITIONAL RUNS 


A full set of input data is not necessary for each additional run. 

The use of a stress multiplier constant (CSTRS) allows all the stress 
to be varied by a constant percentage without inputting any addi- 
tional input cards other than card type 3. If the stresses are to 
be used directly as they are on card type 5, CSTRS is input as 1. 

The input constant NSUP allows retardation to be suppressed on sub- 
sequent runs. That is if a run is made that considers retardation, 
the following run will perform the same analysis without retardation if 
NSUP = 0. When retardation is considered NSUP must be set equal to 1. 
Obviously the order of running the cases must be retarded, followed 
by unretarded. 

In order to control whether loading data, geometry data, or material 
properties are to be read in for a particular run, the constants NLOAD, 
NGEOM, NMAT must be input. If data is to be read in, the appropriate 
constant must be 1, it it is not to be read in, the appropriate con- 
stant is 0. If data is not read in, data from the previous run is 
used. Obviously, for the first run NLOAD, NGEOM AND NMAT must all 


For a given design life (in blocks) the computer program will 
search for the thickness or initial crack size which will meet 
that life requirement. The number of iterations attempted is 
input by the user. The maximum that this may be is ten. This 
computer program ceases its search when the allowed number of 
iterations is exceeded or the computed life lies between 1002 and 
105% of the design life. Life is arbitrarily defined as the 
number of blocks completed plus the number of steps completed/ 
total number of steps + cycles completed in the current step/total 
number of cycles in the step. 

In addition to inputting the number of iterations and the design 
life, an exponent which will control the rate of convergence to 
the correct thickness or initial crack size must be inserted. 

When the Paris equation is used with zero threshold for a through 
the thickness crack, the use of the exponent of the Paris equation 
for the convergence parameter should result in a convergence to 
the correct solution in a single cycle. Any constant equal to 
or greater than the "Paris coefficient" should insure convergence. 




PROOF TEST LOGIC 


For given values of the fracture toughness and applied proof 
test load, the computer program will find the largest crack 
size that will not fail due to the proof load. Since the 
applied stress intensity factor for a part through crack depends 
on two geometric variables, the crack depth and surface crack 
length; one variable must be fixed by the user and the computer 
program will find the critical value for the other variable. 
Either the crack depth, surface crack length or crack shape 
(a/c) may be fixed. 



REFERENCES 


1) Willenborg, R. M. , Engle, R. M. , and Wood, H. A., 

"A Crack Growth Retardation Model Using an Effective 
Stress Concept," AFFDL Technical Memorandum 71-1-FBN. 

2) Wheeler, D. E., "Crack Growth Under Spectrum Loading," 
General Dynamics, Fort Worth Division, FZM 5602 

June, 1970. 

3) Bell, F. D., and Creager, M. "Crack Growth Analysis 
for Arbitrary Spectrum Loading," AFFDL-TR-74-129 , 

Vol. 1, Final Report: June, 1972 - Oct., 1974. 



M 


t* 



\ 

i 





CRACK GROWTH RATE DATA 

The following data for use in the Collipriest/Ehret equation 
(NEQ = l) is typical data for the materials listed. The data 
is included for example purposes only and caution is advised with 
regard to design implications of the data presented. The crack 
growth rate is in in/cycle and the stress intensity factor is in 
Ksi yJZnT 


Material 

D(NC,1, J) 
Coefficient 

D(NC,2,J) 
Relates to 
Midrange 
Slope 

D(NC,3,J) 

Upper 

Asymptote 

D(NC,4,J) 

Lower 

Asymptote 

2024-T851 

1.6 x 10" 9 

3.45 

38.0 

3.4 

2 124-T851 

3.3 x 10" 10 

4.0 

31.0 

3.5 

2219-T87 
(70°F ) 

2.2 x 10" 9 

3.3 

40.0 

5.5 

2219-T87 

(-320°F) 

8.9 x 10“ 12 

4.82 

50.0 

5.5 

7075-T6 

4.4 x 10" 8 

2.53 

33.0 

3.0 

7075-T76 

6.3 x 10“ 9 

3.0 

30.0 

3.0 

7075-T73 

1.07 x 10“® 

2.67 

40.0 

3.5 

Ti-6A1-4VSTA 

6.8 x 10" 10 

3.3 

50.0 

7.0 

Ti-6AL-4V 

Annealed 

5.7 x 10“ 10 

3.18 

84.0 

6.0 

Inconnel 718 
(STA) 

4.0 x 10" 10 

2.7 

115.0 , 

15.0 

D6AC 

7.5 x 10* 10 

2.74 

90.0 

a.o 


A-l 


A series of five computer sessions are presented below. The 
flexibility and generality of the MSFC crack growth program 
make it impractical to present all possible variations here. 
However, the following examples which include many multiple 
run sessions cover a broad spectrum of the program's capability. 

In addition to showing the card images for each example input, 
we have included the card type represented by each line in the 
input data. 

Example 1 - 2219 A1 70 deg and -320 deg part-thru and center 
crack. 

Sample input data for a series of two runs is given on page B-6. 
The first run is a part through crack subjected to a series of 
two loads of 1000 cycles each. The material properties associated 
with each load level are different so as to model the effect of 
temperature variations. The second run is the same except that 
the initial crack configuration is a through the thickness center 
cracked panel. No output beyond the normally supplied out is re- 
quested for these runs. The output is shown on pages B-7 through 





Example 2 - D6AC - Retard/No Retard/with DaDt 

A second example consisting of a series of three runs is presented 
on pages B-12through B-21 Page B-U is the input for these 
three runs. For these runs data on every other block is re- 
quested and the output was rather extensive. All the information 
was not needed here and therefore only the first and last page 
of output of those runs discussed are reproduced. Note that 
only the third run requires 2 material property types, but that 
both sets of material data are read in the first run. This simp- 
lifies the data input by making it unnecessary to input any material 
property data for run 3. 

The first run has two loading steps, calls for a retardation 
model (Willenborg) and requests a maximum of three iterations 
to find a thickness compatable with the design life. A rather 
low (compared to the "Paris exponent") convergence exponent 
of 2 was used. The output for the first iteration is shown on 
pages B-13through B-14 and the report on the iteration is shown 
on page B-15 Due to the use of the excessively low value of the 
convergence exponent, the thickness has not converged to the 
appropriate value. Note, however, that the information is still 
quite useful and that a simple hand plot of the result will show 
the correct thickness. 

In the second run retardation was suppressed and no iteration f 

was requested. Note that the life for a thickness of .5 inches 




cycles was requested. Tabulated data every 10 blocks was 
also requested. Note that the input loading is 50 Kips 
(not 50 Ksi). As can be seen by the data output the cracks 
transition to through cracks halfway through their crack 
growth lives. The data to be plotted is shown on page B-34 
The first column is "a", the second "c" and the third is the 
number of cycles. 

Example 5 - Tabular Input Examples 

In this example; three runs, each requiring tabular input data 
of different types is shown. In the first run a part through 
crack using the solutions for the stress intensity factor 
which are in the program was considered. However, the crack 
growth rate data was input as a table. Three values of stress 
ratio and eight values of stress intensity range were used. 

In the second run, the same material properties as in the first 
run were considered but the geometry was changed to a through 
crack that required a tabular input. The tabular input chosen 
was picked to simulate the consideration of two factors (e.g., 
the effect of a stiffener and the effect of a finite width) the 
first table decreases and then increases, the second table in- 
creases monotonically . Note that the number of tables input (2) 
is determined by the numerical value on the type 8 card and the 



and the fact that this is a through crack. 

In the last example, the geometry Is changed once again. This 
time we have a part through crack that requires tabular input. 
Note that although the type 8 card value of NKTMX is 1, two 
tables are required since this is a part through crack. 








2 RUNS 


2219 At 70 DEO AND -320 DE(, PART-THRU CRACK AND CENTER CRACK 


LCAC INPUT DATA 


STPFSS FACTOR l.OOOC 00 ' 

LIMIT $T«rS$ 3* POOF 01 

5 TCP *AX itFFSS MIN STRESS UNIT S ICYCLE S 1 MATERIAL TYPE 


3.000F n; 0.0 

3.000E 01 0*0 


i;OOOE“03 
l.OOOC 03 


TICM (rr RT TN PUT “DATA 


CR ACK JTPF 
WIDTH ' 

CDDITICrjAt DlHENf.I^K 
RADIUS /NOTCH DIP^H 

THICKNFT 5 ' ' * 

CRACK DEPTH 
HAtr track length 


PTC - 1 

O.900F 01 
0=0 “ 

0,0 

3.000^-01 

TTOOOE-Ot 


MATERIAL input data 


material 

TYPF 


YIELD 
S TRFNf-Th 

5.000E 01 
T.ooor ot 


CRITICAL THRESHOLD CRITICAL 

GROWTH ~ RETARDATION STRESS INTENSITY STRESS INTENSITY STRESS INTENSITY 
EQUATION MODEL ISltPFACP) f SURF ACE I IOEPTHI 


A.OOOfc 01 

s= oooir ot 


3.500E I 
“SiSPOCI 


4.000E 01 
SiOOOP^Ol 


THRESHOLD 
STRESS INTENSITY 
IOEPTHI 

3 . 50 RE 80 
SsSOtP 00 — 


= EQUATION CONST ANTS"— 


CLOST ANT PATtKlAL 


CRACK GROWTH RATE 
SURFACE DEPTH 


RETARDATION MODEL 
SURFACE PERTH 


1 

1 

2.200E-0® 

2 , 200E— 09 

0.0 

0.0 

2 

1 

* — 3 ;^oor CO 

— 3^300F 00 

thU) 

OtO 

•*. 

1 

A.OOOE 01 

4. 0001 01 

0.0 

0.0 

A 

1 

3.500E OO 

3i500E OO 

0.0 - - -- 

OiO 

1 

2 

8 ,900c— 1 2 

8.90OE-I2 

0,0 

0.0 

2 

2 

4;82©E 00 

*;828E 00 ~ 

OiO 

0;0 

' \ 

2 

5.000E 01 

5.000E 01 

o.t 

0.0 


-S’#' 








Run 

? r r 

; run 5 


2219 AL 

70 DIG AND -320 

DIG- PART-THRU 

Lf AD 

INPUT 

data 






STRESS 

FACTOR 


l.ooc r no 




LIMIT 

STI'-bSS 


3 • OOOG 01 




STEP 

MAX ST*> 

ESS 

— If# <T«*s$ 

MhlTSlCVCtESI 

MATERIAL TYPE 


T • 

?.onc»E 

m 

n.n 

l.OOGE 03 

~ 1 


*> 

3. COOL 

oi 

0.0 

l.OOOS C3 

7 


TE trt rpy IwPWr*TJ*TA 

cpac* type 

WIDTH 

ADDITIONAL DIMENSION 
RAMUS/NOTCH rjTPTH 

thickness 

HALF crack length 
ttf 

'O MATERIAL INPUT DATA 

CRrrrc*t; 

WA1ERIAL YIELD GROWTH RETARDATION STRESS INTENSITY 

TYPE STRENGTH EQUATION MODEL < SURFACE! 

1 5.000E 01 10 4. OOOG 01 

2 7. HOOF 01 1 0 5 .OOOG 01 


fOVlATI W CONSTANTS 

CCnSTANT PATE RIAL CRACK GROWTH RATE RETARDATION WPDEL 


UMBER 

TYPE 

SURFACE 

DEPTH 

SURE ACE 

DEPTH 

l 

I 

2.2OOE-09 

2.200G-09 

0.0 

0.0 

2 

1 

3.3CCE 00 

3.300E 00 

0.0 

0.0 

3 

I 

' 4;D00E Ot ~ 

RiOOOr oi- 

o^o — 

O;0 — 

4 

I 

3.*nor oo 

3.S00F 00 

0.0 

0.0 

1 

2 

G.900E-I2 

R.9O0E-12 

0.0 

0;0 

2 

2 

4.R20E 00 

4.820E 00 

0.0 

0.0 

3 

2 

3. OOOG or 

3. OOOG 01 

0.0 

OiO 

4 

2 

5.500S 00 

5. 500E 00 

0.0 

0.0 


TT7 — 1 

6.000E 00 
0.0 
U.O 

s.TmoE^rrr — 

2. ''.OOF -01 



K ANC CENTER CRACK 



STRESS INTENSITY STRESS INTENSITY STRESS INTENSITY 
t SURFACE! - ' * ' f DEPTH I IDEPTM) 

3;300E 00 4i000E 01 3w500E 00 

5.500E 00 5.000E 01 S.500E 00 


| 

i 

i 




RUN 2 22 \<* A L 70 Dt C *NP -320 OrG PART-THRU CRACK A NO Cf NTER^CRACK 

CRACK IS A THROUGH CRACK 

HALT CRACK 

uncK sup cvclcs crack ifrcth tcfax - growth rate~ 

f IN I IKS1 RPOT-IN* ( IN/CYCLC I 

% 

. i nji 7.50np^rtl 7.PT7F 01 I.«T9AF-0A 

LIMIT LP.An FRAPTUPT nretiRS IH THF T OUTER 1 FTFP" »FTTK 3.59IE 02 CTELHS 

r.RITICAL R AT SllRFAC. r HAS MEM IXtEFOEO IN THE “TOLCCR A Nil THF 1 STEP AFTFR "3.69IE 02 XTCLES 


1 1 1 11 11 1 11 222 222? 22232 323333334444444444 5? 55555555666666666677777777778 


1 234 5678 *012 34*6 7*9 012 34* d7f9r- 1234567* 90 12 34*6 78 90 12 34567890 1234 567890 12 34567890 


TfAC-RPT/PP / NC 

/ WITH 

oadt 

* 

3 5 or 2 

1 



1. 1 

i j i i 

? 2. 

200. 

2 0 1 00 • 

150. 0* 

4, 

1 



1 * 0 . 

7.58-10 


1 0 90. 


Run 1 


4 # OF — 0° 


0 160 


Run 2 


Run 3 


HTmi HI 222 22 22222333*3 3333 344444444445 5555 55555666666666677777777778 
1234 5670 9Ol‘>3*56 7r9C 12 34 56769C U3456 7P9012 34 5670 00 1 2 3 4 5 6 7 0 90 1 234 5 6 7e 90 1234 5 6 78 90 


Card Typ t 











\ 


' ) 


RUN 1 n f * PtlMf. DAAC-RETARD / NO RETARD / WITH OADT 


LfUn INPUT DATA 


STRESS f-lLlfi* l.MWt 00 

LIMIT STRESS f.POOE 0? 

STEP MAX STRESS MIN STRESS UN1T5ICYCLES) MATERIAL TYPE 


1 1.5DOE 02 0.0 — fi.OUOF TJO r 

7 i.ooor or n.o 2 .oooe 01 I 


T^^mr INF IT? IT AT A 

CRACK TYPE PTC - 1 

WIDTH P ,900E 01 

AOniTTTNAL OTWENFITTW — O.C 

PA P1MS /NOT f.H DEPTH 0.0 

THTCKN ESS ^.OOOE-Ol 

CRACK OT p TH S.000E-02 

- * HALF CRACK LENGTH TVS 00E=CT7 


MATERIAL INPUI DATA 


W 

I 


K) 


MATERIAL 

TYPF 

1 

? 


▼mn 

strength 

1.900r 02 


EOUATJPN 

t 

7 


CRITICAL THRESHOLD* CRITICAL THRESHOLD 

RETARDATIO N STRESS '~INTENSTTT~ STRESS INTENSITY — STRESS INTENSITY STRESS INTENSITY — 

MODEL I SURFACE > f SURFACE I fOEPTHl t DEPTH! 


I 

~xr 


9. OOOE 01 
9.OU0E 01 


A .OOOE DO 

nrco 


9. OOOE 01 
V.O O OE Dt 


A.OOOE OO 

"OiD 




CONSTANT 
~ MNBER 
l 

~7 

3 

X 

I 

7 


MAT ERIAL 
* TTPE * 
I 

1 


CRACK GROWTH RATE 

^SURFACE* DEPTH 

7.500E-10 7.SOOE-IO 

VXT 


Z.7A0E" 

o.OOOE 01 

“ E^orruE m 

4. OOOE -09 
— nroiiDE DO 


7. FAOF 00 
9 .Q0QE 01 
X.OtfUfc ~0U “ 
4 .0 OOF -09 


RETARDATION MODEL 

“ SURFACE DEPTH 

1.000E 00 1 • OOOE 00 

TGO DTO 

0.0 


1 

1 

2 
7 


0 .0 

~D^tr 



ITERATION PARAMETERS 


DESIGN LIFE 2. OOOE 02 

CONVERGENCE EXPmfTNT 2^ OOOE 00 

ITERATION NUMBER I 

T TER AT TOFT TYPE 1” 


liginal page 
• POOR QUALI 



TRACK 


/ — 


KH AX- SURF ACE 
IKS! RPP1-I N> 


XHAX-DEPTH 
(KS 1 ROOT— IN I 


SURFACE 
GROWTH RATE 
CIN/CVCLI I 


DEPTH 

GROWTH RATE 
f IN/CYCLE I 


4.346E 01 
“ 2 . 904 r 01 
?.90*E 01 
4.358F“T)r 
4.358E 01 


5.000 E 01 
3i34lE Ol 
3 *341 E Ol 
5;oi3r oi 
5.013E Oi 


2.659E-05 
li 1728*06 
1.1T2E-06 
2.6848*05 
2.6B4E-0 5 


~*n:5lT*=05- 
4.5I7E-05 
U783E-06 
1.783E— 06 
4.3348-05 
4.5348-05 


2.9128 01 

^i3Rir or 

4.30 IE Ol 
2;927E Of 
2.9278 Ol 

-c^ n o5E ot~ 

4.405E 01 
25943E Oi 
2.943E Oi 
*.4208 T) l 
4.<*28E Ol 


2 .<> 59 T 01 
4543 ?r 01 “ 
4.4528 Ol 
?;974E Of 
2.974C 01 

“ 4^4758 01 - 
4.475E 01 
2.99 Of 01 
2.990E 01 
4.449E Ol 
4.499E Of 

-^oooe or- 

3.006E 01 
4;922F Ol 
4.522E Ol 
"350228 Of 
3.022E 01 


3.344E 01 
350228 Ot~“ 
5.022E Ol 

-3*3318 01 

3.351E Ol 

^itn?F-ot 

5.032E 01 
353578 01 — 
3.357E 01 

3.0418 01 

5.041E Ol 

^ 3 * 3648-01 

3 .364E Ol 

5*0318 01 

5. 05 IE 01 
353708 Ol - 
3.370E 01 

3^0ME~0t 

5 .061 E 01 
3i376E 01 “ 

3 .3768 01 
3.07t8 01 “ 

5.071E 01 

“3*3038 01 

3.303E Ol 
5.0008 Ol — 
5.0808 01 
‘3*3908 Ol — 
3.390E OI 


1.182E-06 
2*7348-03 
2.734E-05 
I • 20 2 E— 06 
1 . 202 E-C 6 
“2*7868-03“- 
2.786E-05 
“1 52228 ss 06“" 
1.222E-06 
258398*03 
2.839E-05 
- 7 v? 428 - 0 rr- 
,1.2428-06 
2*0438-03 
2.893E— 05 
1*2638*06 
1.263E-06 
- 2 V 947 E*= 05 -- 
2.947E-05 
1.284E-06 
1.2B4E— 06 
3w004E-05 
3.004E-05 
7*305E-Ofr- 
I. 305E-06 
3i06l8-05~ 
3.061 E-05 
1*3268-06 - 
1.376E— 06 


1.78BE-06 
~4;3 648-05 
4.569E-05 
1 i 74 BE— 06 
1.790E-O6 
- 4*6 0 4 8 - 03- 
4. 604 E-05 
7.0048-06 
1.8098-06 
4.6408*03* 
4.640E-O5 


1.8198-06 
4*6768-03 
4.676E— 05 
1*8308-06 
1.8308-06 
-4*T138-05— 
4.713E-05 
l. 0416*06 
1.0418-06 
4.7508-05 
4. 75© E— 05 

t*052E-O6 

l. 0528— 06 
4*7088-05 - 
4. 700 E-05 

1 *8638-06 

I.B63E— 06 


4.546E 01 
35 0378 Ol 
3.037E OI 
453708 Ol 
4.570E 01 


5 .0908 01 
”353968 Ol 
3.396E 01 
-3ilOOP Ol 
5.100E 01 


3.1198-05 
t 53488-06 
1.3488—06 
3*1748-05 
3.179E-05 


4.B2TE-05 
“1.0748-06 
1. 8748-06 
4*0678—05 - 
4.0678-05 


3.053E 01 
- 4 i 394 r*Ol- 
4.594E 01 
~ 3.-06 9 T Or 
3.069E Ol 
4 v 6 T«r-oi- 
4.61 BE 01 
3.085C OI 
3.O05E 01 
"4.6* 2r 01 


3.403E Ol 
“ 3*1118 01 “ 
5. 111E 01 

3i4ioE or 

3.410E Ol 


I. 3708-06 
352408 - 05 “ 
3. 2408-05 
153428*06“ 
1. 3928-06 


1. 0058-06 
4*4078-05 
4 .90 TEH) 5 
“1 *8968*06“ 
1 .8968 -06 


5.121E Ol 
3541T8 Ol 
3.417E 01 
5*1318 Ol 


3. 3038-05 

154148-06 

1.4148-06 

353678*03 


4.9408-05 
1.9088-06 
1 *9086—06 
459848 -KJ 3 


» 


2.C00F Ct 

0.0 

<**0001 00 

■ o-;tj 

2.ooor oi 
o.o 

-.oooe CO 

o.o 

2.0006 Oi 


4. 0006 00 
0.0 

?«000F Oi 

0.0 

•i . OCOF 00 

~v»a 

2 m OPOF 01 

0*0 

4.0006 oo 

0*0 

2.ooor cl 


4.0001 oo 

n*o 

2 .0001: 01 

0*0 

4.0006 00 


1.5376-0! 
i. 5556-01 
1.5736-01 
~r*573r=CT 
1.5T4F-01 
T.594E— OI ' 
1.M56-OI 
1 .6156-01 
1.616E— 01 


1.3U06 -Of 
1.3236=01 
1.3386-01 


1.3396-01 
1.3566=01 
l.*74t>0! 
i; 3 T«r=oi 
1 .3756—01 


1.6646-01 
1.6046=01 
1.66*6-01 
I. 6936-01 
1.7226-01 


1.4141-01 

~i*4i4r=or 

1.4156-01 

r*43PF=0I 

1.4626-01 


1.7236-01 

7*7576=111 

1.7956-01 

1.7956=07" 

1.7966-01 


1.4646-01 

t**'y2t=0t 
1.3226-01 
“t * 5226=01*- 
1.5246-01 


4.R7P6 Ol 
7.3636 01 
7.3996 01 
“T?^936F~trr * 
*• . 9 3 66 01 
T*A<46 01 
7.401E 01 
*1.0016 01 
5.0016 01 


7.5946 01 
5.0746 Ot 
5.0746 01 
7.6746 01 
7.7136 01 


5.1596 01 

7*8166 01 
7.0936 01 
5.2636 01 
5.2636 01 


2.0006 01 


1. 6966—01 
1.8966=01 
1.8986-01 
1.973 r=oi 
2.1006-01 
2.1006=07“ 
?. 1026-01 


1.6066-01 

1*0066=01- 

1.4076-01 

1. 6 6 9 6-01 

1.7726-01 

1.773 6—01 


4.7096 01 
7.2296 01 
7.2666 01 


4.0486 Oi 

7.3226 01 
7.3606 01 
3?;9146 01 
4.9146 01 


7.4676 Oi 
6.9896 01 
4.9096 01 
^*5*16 01 
7.5916 01 


5.0786 01 
“T*699€ 01 
7.7826 01 
9.1096 ~0l 
5.1896 01 


8.0736 Oi 
5.4066 Ol 
5.4046 01 
0*2626 Ol 
8.5096 OI 
"3*87 3 6 0 1 
5.6736 01 


7.9756 Oi 
O^S4tr 01- 
5.3416 Ol 
8. 1816 01" 
0.4546 01 
-5^63T6“Ot- 

5.6 376 OI 


4.8196-06 

4.4916-04 

4.7216-0- 

"3*1236=08 

5.1256-06 
5.0996-04 
5.377 6-04 
5.5156-06 
5.5156-06 


6.2706-04 
6*0386=06 
6.0 386-06 
7.1166-04 
7.5716-04 


6.0026-06 
9; 0256-04 
I .0406-03 
5*9336-06 
5. 9336-06 


1.4986-03 
«; 1406*08" 
0.1606-06 
2*3756=03 
5.3166-03 


4.5736-06 

3.7666-06 

3.9526-04 

*T*0526=O6 

4.05 26-06 

6.2526-04 

4.477 E-04 

5*2066-06 

5.2066-06 

4^9726=04* 

5.1926-04 

5.0776-06 

5.6776-06 

5*8676-04 

6.2356-04 


6. 3536-00 
7*3996-04 
8.5096-04 
5*6956-06 
5.6956-06 


1.2206-03 
7.4316*00 
7.6316-06 
1*9256*03 
4.317 6-03 


7.2396-06 


7.1046-06 


/ — 


IIHIT LCAt> FRACTURE OCCURS IN THE 184 BLOCK 1 STEP AFTER 3.190E 00 CYCLES 


CRITICAL K AT OFPTfl MAS BEEN TXCEEOEO IN THE 195 BLOCK AND THE 1 STEP AFTEK I.B35E 00 CYCLES 



-15 


ITFRATIfN P.FSHLtS 


PFPCFNT 

PEuaiREtn 



*.0<*0F-01 l.OOOE-02 7.?>OUt-02 1.942102 97.11 

9.0741-01 S.O00P-02 - 7;>»00r^n2- ?.lO?r 07 “105n^ 

-.9-3S-01 5.000r-0? 7.500C-02 1.T32F 02 91.62 





2 OF -» RUNS OMC-RETAPO / NC RET ARP t WITH. D»DT 

Lr*r lflWlT f'il A 

5T«f$j. F/CTnn i.ppo’T'OO ' - 

LI"1T StRtSS 1.600F 02 

STFR MAX S1R£SS WIN SIRISS UNtTS <CTCLES \ WATFR1AL TYPE 

1 1.500E 02 0.0 - 5;000U”Wr ~T 

i 1 . O00E 02 0.0 2.000C 01 1 




IIGINAL PAGE IS 
POOR QUALITY 



CRACK 


KWAX=SimFACr~ 1CWAX-DERTH 
CKSI 9mT-INl tKSl ROOT-IN) 


SURF ACE 
GROWTH RATE 
UN/CYCLf.) 


DFPTH 

GROWTH RATE 
« IN/CYCLE ) 


-..3468 oi 

?.9048~oi 
2.904E 01 
453698 Ot 
*.366£ 01 

2.9I9F 01 
*54178 01 * 
4.M2F 01 
2i946f Of 
7.94 8F 01 

-t^wror 

4.45 6 F 01 
25977E 01 
7.977E 01 
4;901E O! 
4. 5018 01 


3.007E 01 

♦;wroi 

4.545C 01 
4;037F 01 
3.037E 01 
--^590^01- 
4.590E 01 
3;067C 01 
3.0671 01 
4.6396 01 
4.635F 01 
3;O9TE-0I~ 
3.097E 01 
456802 01 
4.680E 01 

?5t2T8 01 

3.127E 01 
R.TZST-Ot- 
4.725F 01 

“ 3 st 57 r ot 

3.157E 01 
457696 Ot 
4.769E 01 
3 .1 666 01 
3.186F 01 
“4;8146 Ot 
4 .8 1 4E 01 
“352166 01" 
3.216E 01 

4.859E 01 
" 352468 Ol 
3.74 6E 01 
“ 45905 T Ot* 


5 .006 E 01 
353418 01 
3.341E 01 
55017E 01 “ 
5.017E 01 
” 3 rT 4 «irtir“ 
3.348 E 01 
*5 50366* 01 
S.036E 01 
3i3A06 Ol 
3.360E Ol 
-350338*01“ 
5 .055 E 01 
3.3736 01 
3.373E 01 
3 ;0738 01 ~ 
5 .073 E Ol 
-3¥30At-01- 
3.386E Cl 
9 50946 01- 
5 .0946 Ol 
3 53998 Ot 
3.399F Ol 
-5Jll9E~0t- 
5 .1 IRE 01 
Ji4l26 Ol 
3.412E 01 
5.1346 Ol 
5 .134E 01 
354266 - 01 - 
3.426E 01 
9 51556 01- 
5.1 55 E 01 
3.4396 Ol 
3.439E 01 
5 .17 66“Ot— 
5.176E 01 
3;4 546 Ol 
3.4548 Ol 
5 52026 01 
5.202E 01 

3.472E 01 
5;2296 0t“ 
5.229E Ol 
3^4906 01“ 
3.490E 01 
3.23 6 6 O l - 
5 .2566 01 
3 ;9086 01 - 
3.508E 01 
352846 0t~ 


2. 6596-05 
'75 6946=06 
7 . 6942-06 
25T06E— 03 
2.7068-05 

7.804E-06 

2.8038*05 

2.803E-05 

85027E-0A 

8.0278-06 

2.904E-05 

- 652368-06 

8.2566-06 
3;0086-03 “ — 

3. 0088-05 

"8^49 1 6-06 

8.491E— 06 

"3.1176-05^ 

3.1178-05 

857326-06 

0.732E-O6 

-352306-05 

3.230E-05 
8 i 9796-06 
8.9T9E— 06 
3.3466-05 
3.3466-05 

9.2328-06 

354716-05 

3.471 E-05 

9.4926—06 

9.4928-06 


3.598E-05 

9s7576-OA 

9.757E-OA 

3.7288— 05 

3.7288- 05 
-W 0026 - 03 - 

1.0028—05 
358646-0 5- 
3.864 8-05 
-150306-09- 
1.0308-05 
-4^0076-03- 
4.007E-05 
li 0386-05 
1.058E-O5 
4; 1566-03 


^5176=05- 
4.5178-05 
1 i 1328-05 
1.1528-05 
453518-05” 
4.5516-05 
1 ^ 2388 - 03 “ 
1. 1588-05 
45621 8-05 
4*6218-05 
151718-05 
1.1718-05 
~ 4 . 6 938*05 
4.493E— 05 
151846-05 
1.1848-05 
457668-05 
4.766E-05 

1.1988-05 
4i842E— 05 — 
4.8428—05 
1 s2l28— 05 
1.212E— 05 
“ 453216—05 
4.9218—05 
1.2268-05 
1.2268-05 
5. OC 26-05 
5.0028-05 
-f.2406— 05 — 
1 .240E-O5 
5.0868-05 
5.0868-05 
1 *2558—05 
1.2558-05 

5.1758-05 

"1.2728—05 

1.2728-05 

5.2678-05 

5.28 78-05 

1 I 291 8-05 
-5*4038-05 
5 .4038-05 
~f .3118-05— 
1.3116-05 
- 5 ^ 3246 * 05 — 
5. 524E-05 
1533 26-03 - 
1.3328-05 
~5 56308-03 


J 



\ 

A . 00 <*F 

00 

1.7686-^)1 

1 . 0736-01 

6.604 t 

01 

6 .5026 

01 

1.8546-04 

1.6726-04 

F 6 

■5 

0.0 

— 

— I.26BF=CT ~ 

— l.T77~*F-01 

4.4T7F 

01 

4.3476 

oi 

2.8146-05 

Z. 6616-05 

l b 

7 

2 .0006 

01 

1 . 2746-01 

1 • 07&F—01 

7F 

01 

4.3476 

01 

2. R 14 6 -OS 

2. 6616-05 

50 

r 

“tv.r. 

' 

672876=01 

1VT*9TT=0T““ 

<>•88 16" 

OT “ 

“6.5T»Tr 

01 

C . uu # t— 0 % 

777896=04 

VO 

j 

•i..OOOF 

uO 

1.295E-01 

1 .0986-01 

6 . 6 « IE 

01 

6.5696 

01 

2.007E-04 

1 .7896—04 

oo 

2 

o.o 


1.2956-C1 

“ T.T1O86-01 

4 

01 

4.393F 

01 

2.9326-05 

2.761 E-05 

* 0 

? 

2.000F 

01 

1.3016-01 

1. 1036-01 

4. 4696 

01 

4 .393E 

01 

2.9326-05 

2.761 6-05 


1 

0.0 


1.315E-01 

1 .1166=01 

6.76 IF 

ot 

6.6416 

01 

2. 10*7-04 

1.9256-04 

V t. 

1 

A .0006 

00 

1.3246-01 

1 . 1 24 E -01 

6.761 F 

01 

6.641E 

01 

2.1846-04 

1.9256-04 

X?? — 

. - ^ 

— 


T7324T -01 

— r.T7^E=ni 

- .57 3 6 

or " 

“4 ^4476 

01 

3#0^Zt“O5 

27 8 TO E—05 


■j 

Z.PCOF 

01 

1.3306-01 

1.1306-01 

4.523E 

01 

4.4426 

01 

3.0<»2e-05 

2.870E-05 


T 

0.0 


1.3466-01 

“ 1.1446=01 

6.B44E 

or 

6.717E Dl 

2. 391E— 04 

2.0846=04 

Mi. 

1 

i .OOOF 

00 

1.355E-01 

1.1526-01 

6 • B 446 

01 

6 .7176 

01 

2.391E-04 

2. 0846-04 

9* 

7 

0.0 

- — 

i;3 556=01 

1.1526=06 

4 .5"T°6 

OI " 

oi 

““372046=05 

2.9926-05 

Q i* 

2 

7.0006 

01 

1 . 3626-01 

i. i^er-oi 

6.57 9E 

OI 

4.4 946 

01 

3.2046-05 

2.9926—05 




^6 

96 

94 

*6 

9R 

b 


T 

1 

Z 


tt;b 

* .oooe oo 

0.0 

2 . root oi 
cr.r 


1.3696-01 

1.3896=01 

1.3966-01 

174146=01 

1.4256-01 


1.182C-01 

I.I87F=01 

1.1686-01 

1.2046=01 

l.214t-01 


'679326 OT 
6.932E 01 
4i6396 01 
4.6396 01 
T.025F 01 
7.025E 01 


6.7986 01 
475*96 01 
4.5496 01 

6 i 8 t 5 tr or 

6.885E 01 


2 .6378-06 
3.3606=05 
3. 3606— 05 
“279356=04 
2.9356-04 


2.2736—04 
3; 1286=05 
3.1286-05 
270016=09“ 
2.5016-06 


— .. .. ~ 

- -qr* 


"070 


1.425b -TTI 

i7Zibi-ur 

b.Tozr t>i 

TiWWf'Ol' 

3.T33E-03 

3.Z8IC— 03 



96 

e 

2.000E 

01 

1.4326-01 

1.2216-01 

4.7026 01 

..609E Ot 

3.5356-05 

3. 281 E-05 



100 

T 

0.0 



1.4526=01 

1 72366=01 

T7T23^ TU 

679796-01“ 

373036=04 

77T836=04 



IOC 


4 .conn 

CO 

1.46 56-01 

1.2496-01 

7.123E 01 

6.9796 01 

3.303E-04 

2. 7836-04 



100 

7 

o.o — 

- — 

1 74656— Or 

1.2496=01 

477706 01 

4;6746^8r 

3.7316=05 

-3i»55E=0S 



100 

? 

2 . 000 * 

01 

1.4736-01 

I.756F-0I 

4.770f 01 

4.67*6 01 

3.731E-05 

3.455E— 05 


— ■- — * 

" TD7 

1 

070 


1.4946=01 

" 1 • zT5b— OI 

f . 2296 0 r 

7.081E 01 

3. T? 06—04 



W 

102 

l 

A.COOF 

00 

1.5106-01 

1.2876-01 

7.2296 01 

7 .0816 01 

3.770E-04 

3.1396-04 


1 

102 

* 7 - ■ 

0.0 


175106=01 

r 77876=07 

4iB436~0 1' 


“379566=05 

" 3 76586—05 ” 


M 

m 

K 2 

2 

2.CC0E 

01 

1 .5 176— 0 1 

1.2*56-01 

4.8436 01 

- 4.7456 01 

3.9566-05 

3.6586-05 


vw 

104 

1 

- ~o;c 


175476=01 

173166=01 

Ti34 56 0 1 

* 7;lT5FT)t" 

4.3836—04 

3.6086=04 



104 

1 

4 .OOOE 

00 

1.560E-O1 

1.3306-01 

7.3816 01 

7.2 336 Oi 

4.6046-04 

3.788E— 04 



— rtrt 
JO- 
106 
106 
106 
106 
— iob 


? 

i 

i 

7 

7 


070 

2.000F 01 



4.000E CO 

0.0 

2.0006 01 


I .56UE-01 
l. 5686— 0 1 
175W6=OT“ 
1.617E-C1 
' 1 76 1T6— 0 1" 
1.626E-01 


108 

108 

108 

110“ 

110 

~rnr 


no 

112 

U2 

112 

1)2 

314 

114 

114 

114 


1 

2 

2 

r 

1 

r~ 

2 

1 
1 

2 

2 

~T~ 


070 

<♦.0006 00 

0 . 0 " 

2 .ooor oi 

— mo 

4.000E OO 

— 070 

2. OOOr oi 

— o.rr 

4.0006 00 

-r.a — 

2 . ooor oi 

— 070 


1 . 6866-01 

~r. 686 F= 0 T“ 

1.6956-01 

T7736F-01 


1.7716— 01 

1. 77 16- 0 1 
1.7826-01 


1.3306-01 
1 . 7386—01 
i;3626-T)r 
1.37*6-01 
~ li3T96=or“ 
1.3876-01 
1 .4156-0! 
1.4366-01 
1.4366=01 
1.4456-01 
“ 174796=01“- 
l.^OTE-Ol 


~XJT~ 


4.923r 
4.9236 01 
T.477T 01 
7.5096 01 
5;Ol2E 01 
5.012F 01 


4.8256 01 
4.8256 01 
7. 32 3 F 0 1 
7.3626 01 

9.9156 or- 

4.915E Oi 
7.4706 01 


4721 86 = 05 

4.2186-05 

577326=04 

5.5106-04 
4.5336=05 
4. 5336-05 


3.8 9 8 6 -05 


3.8986-05 
“4 .25 66=04“ 
4.488E— 04 


01 


7.6546 
5.1156 01 
5.1156 01 
'777576 01" 


1 .5076—01 
1. 5186-01 
775626-01 


7.8256 01 


> 2 3 9F 01 
5.23 96 01 
71^0006-01“ 


7.5116 01 
“5 70216 01 
5.0216 01 
-7;6476“01 
7.6906 01 

-or 


1.892E-01 
1.892 6=6 
1.9056-01 


1 

7 

2 


4.000F 00 
0.0 ™ 
2.0006 01 


-17998 mr- 
2. 1756-01 


2^1756=01 

2.1926-01 


1 .6066— 01 
1.6066=01 
1.6186-01 
1.69 3 6-0 7 
1.833E-01 
7 .8336=01 " 
1.54*6-01 


8.07*6 01 
574066" 
5.4066 01 
. 3236-01- 


3.1 5 2 6 
5.152E 01 
"Ti 87667)1 
7.9666 01 


6.883E-04 
"479256=05“ 
4.9266-05 
r5796=04r 
9.1746-04 
3 .43 96 - 0 5 


"4 .1916=05 
4.191 E— 05 
ymtfor 


5 • 536 E— 04 
“475656=05" 
4.5656-05 
3106*04' 
7. 295 E— 04 
5.0 776 -03 


5.4496-05 


8. 6146 01 
577696 01 
5.7 6 96 01 


5.3336 01 
872336 01- 


1.5186-03 
496*03 
6.249E-05 
2 .83 76 * 0 3 


5 . 0776-05 
“1.0076*03 
1. 1976-03 


5.8876-05 

2.1 576 * 0 3 


8.5686 01 
5.74267)1 
5 .7426 01 


8 .46 46 -03 
875016=03 


8.5016-05 


6.7966-03 
173026=05“ 
8.302E— 05 


LIMIT LOAD FRAC11W6 OCCURS IN THE 


106 BLOCK 


1 STFP AFTER 


3.200F 00 CYCLES 


CRITICAL K AT 06 PTH HAS BEEN EXCEEDED IN THE 115 BLOCK ANO THE 1 STEP AFTER 5.410E-01 CYCLES 









T RIJNS 


PUN R OF 
LOAD INPlt! DATA 


D*AC— R FTARD / NO RETARD / WITH 0*01 


STRESS FACTCR 
L 1 HI 1 STRESS 


l.noor on 

i.hooe u2 


MFP 


MAX SIRE'S FIN STRESS UN I T$ ICVCLFS I 


1 • SPOF 07 
i.OOOE 02 
I. OOOF 02 


HATER |AL TYP* 


0.0 

0.0 

0.0 


*♦ .ooof on 

2 .OO 0 E Ol 
4.300F 07 


o o 

W 

•tfST 

JO _ 

G 

Bfi- 


CCflPETRY INPUT DATA 


CRACK TYPfc 
WIDTH 

ADDITIONAL 01 MEN MON 

^AtTlTfSTNrTCH DEPTH- 

THICKNESS 

CRACK DEPTH 

HALF CRACK LENGTH 


PTC - 1 

OiOOOD Ci 

0.0 

-tnx) 

5.000E-01 
*>. 000F-C2 
7.500F-02 


PTATCRTAL IKPXJT TrkT* 


ttf - 
I 

M 

VP 


MATERIAL 

TTPf 

1 

2 


YIELD 

STRENGTH 

i.pocr 02 

1.900R 0? 


GROWTH 
FOUAT ION 


RETARDATION 

model ~ 


CRITICAL 

STRESS INTENSITY 
I SURFACE I 


O 

0 


-ytooof- or 
o.ooor oi 


NUHPrR 

1 

2 

3 

4 

1 

2 


EQUATION CONSTANTS 


CONSTANT MATERIAL 


TY»E 

1 

1 

l 

1 

2 


CRACK GROWTH RATE 


RETARDATION HOOEL 


SURFACE DEPTH SURFACE 

T; SOOF-IO — T^300F^t0 IvOOOF OO' 


2.740E 00 
9 . OOOF Ol 
6.000E 00 
*.000F«0* 
I. OOOF 00 


2.740F 00 
YiOOOE 01 
6.000E 00 
4;000E-09 
I. OOOF 00 


0.0 

OiO 

0.0 

OiO 

0.0 


UFPTH 
1 iOOO* 0D~ 
0.0 
OiO 
0.0 
OiO 
0.0 


THRESHOLD 
STRESS INTENSITY 
« SURFACE! 


-otooop-oo- 

0.0 


CRITICAL 

STRESS INTENSITY 
fOEPTHl - 

Yi OOOPO t 

o.OOOE 01 


THRESHOLD 

STRESS INTENSITY 
IOEPTM! 


oiooor-oo- 

o.o 




OZr 



CP ACK 


SURFACE OliPTH 

K*AX-5l)RF ACE KRVX-DEPTK r,RnWTK RATE GROWTH RATE 
K5I R COT -IN) IKS1 ROOT-IN ) UN/CYCttl I IN/CYCIE \ 



A, 01 
Z.90AE 01 
2.904F 01 
7.917F 01 
2.912F OT 
r ?‘t TTT~ 
^.37?E 01 
7.971E OT 
2 *92 IE 01 
2.729F 01 
2.929E OT 
4.42 21 "' Ur 
4.422E OT 
7. 0 55E Ol 
2.9SST 01 
2;953E 01 
2-963E 01 


T-TOORF 01 “ 
*5 .008E 01 
3. HIT 01 
3 *34 IF 01 
3.345E OX 
3.3451 01 
TaUVE UT“ 
5.019E 01 
3.349F 01 
3.349E 01 
3.353E Ol 
3 .353E 01 
5-T7A7E TJX" 
5.042E 01 
3.3 64E 07 
3.364E 01 
3.368E 01 
3.36RE 01 


ZVF59F-05 
2-659E-05 
T. 694 E -06 
7.694E-06 
1.165F-07 
1 . 165 E— 07 
"T; 7 T 3 F= 05 " 
2.713F-05 
7.820E-06 
7.820E-06 
1 * IT 2 E— 07 
!. 172E-07 
ZVF? V€=VJ- 
2. B25E-05 
8.0T7E=06 

R.077E-06 
1.185F-07 
1.185E-07 


^T.5T7F=05 
4.517E-05 
1.1 52E-D5 
1.J52E-05 
1.33RE-0T 
1.338E-07 
4 . 55 RE- 05 T 
4.558E-05 
1.160E-05 
1 • 160E~05 
1 .341E-07 
1.341 £—07 

A.643E-05 
1 • 175 E— 05 
1.175E-05 
I.34TE-07 
1.347E— 07 


4.473E 01 
~7 .98 BF OT 
2.98BE 01 
Z.997F *01 
2.997E 01 


5.065E 01 
“T.3T9F m 
3.379F 01 
3.353E OI 
3.3R3E 01 


2.942E-05 

m. 342 E -06 

8.342E-Q6 

~I.T99E^07 

1.199E-07 


4.730E-05 
T.IVIE^S 
1.191E-05 
1 *3*'3Tr~07 
1.353E-07 


a. 523 E 01 
~3 *U22F 01 
3.0 ? 7E OX 
3X031F Ol 
3.031E 01 
A^ yr5r 'O I 
4.57 5E 01 
T. 056 C 01 - 
3.056E 01 
3;085F OI 
3.065E 01 


5 .08BE 01 
3.395E 01 
3.395E 01 
3.399E Ol 
3 . 3091 = 01 

5.U2E 01 
3 ; 4 lt 9 01 
3 .4 1 It Ol 
3^4 15E 01 
3.415E Ol 


3.064E-05 
3 .H 4 T 0 6 
B * E*'“06 

l; 2 T 2 E ^07 
1.212E-07 
- 3 TT 91 F= 05 ~- 
3.191E-05 
- 8 . 894 E ^06 

S.694E-06 
- 1 ^ 276 E -07 
I.Z26E-0T 


A.820E-05 
1 . 20 BF-O 5 ; 
1 • 208E— 05 
1.360E=0T 
1.360E-07 
4.9 13 E » 03 
4.9 13E-05 
1 ; 224 E =05 
1.224E-05 
1^356 E-OT 
1.366E-07 


4.626E 01 
3 aT7 TE~U T 
3 .09 IE 01 
“3«099F"Ol ' 
3.099E 01 


5.136F Ol 
^; 42 tTGT" 
3.427E Ol 
~ 3 ; 431 E^OT~ 
3 *43 IE 01 


3.325E-05 
”* 9 . 102 E -06 
9.182E-06 
“7;2*OE^OT~ 
1.240E-07 


5.009E— 05 

Tr 242 E= 03 ~ 

I.242E-05 

t; 372 E= 07 - 

1.3T2E—07 


4.677E 0 1 

Ti 125 E 01 
3.12 5E 01 
*~ 3 ;i 33 F-or 
3. 1 33 E 01 


5.160E 01 
3.443E Or 
3 .443 E Ol 
3 .t^ 7 F 01 
3 *447 E 01 


3.464 E— 05 
9 i 5 T 9 F ^06 
9.479E-06 
1.25JE-OT 
1 .253E-07 


5 .109E—O5 
l.259E=05 
1.259E— 05 
I.379E^OT 
1.3T9E-07 


4.729E 01 
3il59E 01 
3.I59E 01 
"DJI 5' HE 01 


5 .1 05 E 01 
3 . 460 E 01 
3.460E Ol 
-3.465E01 


3.6 10E—0 5 
9 ^ 783 E= 0 « 
9.783 E— 06 
li 267 E^ 0 T 


5.2I2E-05 

l;2THE=05 

1.276E-05 

T.TB 6 E^ 0 T 





Ill Hill 1U ??m Sm> 33131ia>i444<.»4»444>g»SSS? SSSfctfcfc6fr6fr6fe7777T77 777e 
U3Ar67pcnir34«.6 7Mi01 1 2 1-4S6 7P<’0 1 7 3<-*6 7P cf 1 | ?- 9 t 7e 901 1 ?- S >< W»*C ItMUTIK 
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RUN 1 OF 2 RUNS D6AC ITERATION ON CRACK SITE / PROOF TEST 

trur INPUT DATA 


rr RE $S FXt ITT* T700OF 7T0 

LIMIT STRESS 1.800F 02 


STEP MAX STRESS MIN STRESS IINITSICYCLESI MATERIAL Typf 


1 r770OE“O7 070 -Z750UF Ut T 


GEOMETRY INPUT DATA 


CRACK TYPE PTC - l 

srnmr 9 . 900 E oi 

ADDITIONAL DIMENSION 0.0 

RADHTS/NOTCH TTEPTIT 0.0 

THICKNFSS 5.000E-01 

C RA C K DEPTH 5 70 001=^02 

HALF CRACK LENGTH 7.500E-02 


TTiTFRI At TNPirr DATA ~ 


MATER |AL 

type * 

meld 

STRENGTH 

GROWTH 
r OUAT ION 

RFTARDATinN 

MODEL 

CRlTTCRtr 

STRESS INTENSITY 
1 SURFACE 1 

turps mo to — 

STRESS INTFNS I T Y 
1 SURFACE 1 

CRITICAL 

STRESS INTENSITY 
fOEPTMl 

TMRE f.HOLD 
STRFSS INUNSITY 
IPtriHl 

1 

1.<*0CE 02 

1 

0 ' 

o.ooor oi 

A.OOOF 00 

Y.OOOE 01 

A.OOOF 00 


- ^= =ss ^^=*=w=pQtTATIOir CONST ANTS===^ 


CONSTANT 

MATERIAL 

CRACK r,*nwTH RATE 

retaroatitn mcdel 

* MUMPER 

type 

SURFACE 

OF P TH 

SURFACE 

DEPTH 

l 

1 

7.50OE-I0 

T.SOOE-IO 

0.0 

c.o 

2 

I 

2.740E 00 

2.T40r 00 

0.0 

0.0 


1 

9.000E 01 

9.000E 01 

0.0 

0.0 

- - 4 

t 

G.OOOE no 

6.000F OO 

OiO 

OiO- - 


ITERATION PARAMETERS 

OF 5 IGN LIFE 2.000E 0? 
CONVERGENCE EXPONENT *4.0000 00 
ITEPATlrPl MUMPER 5 
ITFRATION TYPE A 





OCAC ITERATION CN CPACK SIZE / WOOF TEST 


CRACK 15 A PART THRU CRACK 


BLOCK ST 6* 


CYCLF5 


u;ti 

2. sour oi 

0.0 

7.SC0F 0 1 

o.o 

2.5006 01 

~0T0 

?.S00f 01 
0*0 

7.S00E 01 

0.0 

2. SCOT 01 

~~TTZT3 

7 •*'00t* Of 
0 .0 ' 
2.S00F Ol 

* 0.0 “ 

2.500F Cl 

u^o 

2.5006 01 
■~0.IT 

2.^006 01 

0 .vr ■— 

2.5006 01 

"~OT0 

2.5O0E 01 

0.0 

2.5006 01 

' 0 .0 

2.SOOE 01 

OiO 

2.500E 01 

0.0 

2.5O0F 01 

“0.0 

2.3006 01 

“Tcm 

2.5006 Ol 

TT.TJ 

2.3006 01 
tr;o- 

2. 5006 01 


HALF SURFACE 
"CRACK L66CTH 
UNI 


4.1TIF-D2 
*.T?«WE-02 
A. 3056-02 

4. A55f=07 
4.47 2E-0? 

A.660E-02 
4.8486=02 
4. 8716-02 
5;082E=0Z 
5.1076-0? 
"5.3436-02 
5.3716-02 
5.636F-02 

5. A67E-0? 
5.9636=02 
5.448E-02 


6.3706-02 
“ 6.7446=07“ 
6.7886-02 
T.2 176—02 
7.2626-02 

1.7446=07 — 

7.8026-02 
— 8;355E=U7~~ 
8.4216-02 
~ 9^0676=07 ~ 
9.1396-02 

9^8936-02' 

9.9846-07 
—1^0896-01 “ 
1.1006-01 
— U2riE=oi“ 
1.2256-01 

I'ii‘3886 -0 1 

1.3666—0 1 

U609E-O1 
ri9ZlE=0t 
1 .969E-01 


CRACK DEPTH 

< INI 


2.992E-07 
7.967E-02 
2. OR36-02 
3.1836-0? 
3. 70^*6-02 

3.A436— 02 
3.6711=02 
3. 497F— 1#2 
3.9*16=02 
3. Q706-02 
“477326=02 
4.2636-02 
4.5456-07" 
4.5 186—02 
4'f 846=02 
4.91^6-02 
-5.25 36-07 
5.2916-02 
5.6571=02" 
5 .4996—02 
6.1036=07 
6.151E-02 
BTBTTn-02 

6.4541-02 
~7;i61E=0Z 
7.2226-07 
T. 8026-02 
7.8716-02 
"875446=02" 
8.675E-02 
“9.4236=02 
9.520E-0 2 
7;O49F-01 
1.0616-01 
171836=01“ 
1.2016-01 
r.3T06=0T 
1.3926-01 
1.6586=01" 
1.6986-01 


K*AX= SURFACE 
(K SI ROUT- IN) 


2.549F Ol 
2.69 56 01 
2 .6 0 5C Ot 
T.814F Oi 
2.8146 01 
“2.9371"- 0 1“ 
2.9326 01 
3.05 36 01 
3.0536 01 
3.1TT6 OI 
3.177F 01 

3 I 3016 Ol 

“3 .4286 01 
3.-.C06 01 
3.5616 01 
3.5616 O l 

3.699r Oi 
3i8446 Ot~ 
3.8446 01 
3.9906 Ol 
3.9Q0E 01 


KNAK-06PTH 
|KS 1 ROOT-INI 


4.1616 Oi 
4.3386 01 
4.3386 01 
4.530F Ol 
4.5306 0 1 

4.7426 01 
4.9816 01 
5.00 66 Ol 
“5.2576~0t" 
5 .2846 01 
573876 01 
5. 6156 01 
~67005E~Ut~ 
6.0356 01 
6.6056 *01“ 
6.6716 Ol 


2.9796 01 
3.028601 
3.0286 01 
3.0856" OI 
3 .0856 01 
37T5B6 Ot 
3.1586 Oi 
3^2366 Ol 
3.2366 01 
“ 3 .3776" 01 
3.3176 01 
— 1.3976“01“ 

3.3976 01 
3.4056*331 
3.4856 01 
3«i581E~0t“ 
3.5816 01 

- 3 . 68 S 6 - OI 
3 .6856 01 
3 . 80 oror~ 

3.8006 01 
“3^9766 01 
3.9266 Ol 
“470 66E“0 1“ 
4.066E 01 
4.2216 01 
4.2216 Ol 
47397E OI 

4.3976 01 
4.5956 OX 
4.5956 01 

“4.82t6 01 
4.8456 Ol 
5 ;0876“0t~ 
5 .1136 Ol 
3 '.4 t i l : 01 
5.4386 01 
— 5 ;820E Ot“ 
5.8596 01 
“ 074436 Ot“ 
6.5126 01 


SURFACE 
GROWTH RAT6 
I IN/CYCLE I 


5.5886-06 
35.2436=06 
6.2436-06 
770416=0* 
7.041 E-06 


7.9046-06 
8.8696=06 
8.8696-06 
9.9426=06 “ 
9.942E-06 
7TTIT6=U5 — 
1.U1E-05 
“177436=05“ “ 
1 « 243E— 05 

“1.3946=05 

1.394E-05 

1 75 5 76 = 05 

1.5676-05 
177606=05 — 
1.768E-05 
2.0066=05 — 
2 .0066— 05 
7 72 9 1 6=05 — 
2.29 16-05 
“7 .'6406=05 
2.6406-05 
3.0796=05“ 
3 .079E— 05 

3.649E— 05 
“ 4 ;4 216=05 
4.510E-05 
“573306=03 — 
5.650E— 05 
7 .2 7 46=03 — 
7.4476-05 
~~t» 046 E=0 4 — 
1.0756-04 
~ 1.0566=04 — 
1.4866-04 


0EPTH 

OROWTN RATE 
< IN/CYCLE I 


8.2676-06” 

0.2676-06 
' 0.6596=06 

S. 6596-06 
9.1356=06 
9.1356-06 

977666=06 

9.7666-06 
-• 1.0406=05 
1.04 06-05 
ti 1776=05 
1.1276-05 

177106=05“ 

1.2106-05 

1 .3066=05 

1.3066-05 
“1.4106=05 
1.418E— 05 

1. 5 49 6 = 05" 

1.5496-05 

1.7056=05" 

1 .7056-05 

170976=05 

1.0926-05 

77 1 706 = 05” 

2.1206-05 
— *774056—05 
2.405E-05 
7.7686=05 
2.7686-05 


3.2436-05 
3.8876=05 
3.9626-05 
~4i 01 56*05 
4.9156—05 
6.2 7 4 6 =05 
6.4206-05 
8 . 9 48 6-0 5 
5.1076-05 
1 . 5776 -04 
1.6806-04 


UNIT tOAO FRACTURE OCCURS IN THE 189 0U1CK T STEF AFTER t;5706 Ol C7CL6S 

TRTTTCAl K AT nfPTH HAS BEEFT CT^EEDEtT TW THE 710"01UCK ' W0*TH6 ” l ST6F AFTER 6.6956 00 TYCtES 


I7ERATITM RESULT* 


PERCENT 

- rmrRKfs? a — r liff RFOtnuEtr i 


*>•0006-01 

n.HOOF-ni 


^.OOCT-02 7 ,,*>006-02 1.10*»F 02 55. *3 

2.TT2E-0? L • I58C-C2 2.HfP3E02 ~TC*;63 


W 

I 

K> 

O' 


8£S«kS»tfiv»5»4i3*iS'(S . 



RUN 2 PF 


2 RUNS OCAC MFRATIPN PN CRACK SUf / PROOF TEST 

LOAD INPUT OM* 

STRESS FACTOR 
L1*M STRESS 

STFP W AX STRES S HIM STRESS UNlTStCVCLES I MATERIAL TYPE 

i i.?oor n? o.o ■ 2.roof hi t 


i.nooc oo 

I.POO r 02 


i;cc^rTPv input oat a 


CRACK TYPE PIC - 1 

wipth 9.9oof~oi 

ADDITIONAL DIMENSION 0.0 

RADIUS/NOTCH DEPTH ’0.0 ' 

thickness s.ooor-oi 

CRACRT EPTH 2.7 f 21 -02 

half crack length <*.i5er-02 


, MAT n*T AL INPUT DATA — 

to 

•-J CRITICAL THRES HOL D C R ITI C AL THR ESH O L D 

MATERIAL YIELD GROWTH RETAROAT ION STRFSS INTFNSITY STRESS INTENSITY STRESS INTENSITY STRESS TNTfcNSITY 

TYPE STRENGTH FOUATTON MODEL FSURFACFI CSURFACEI ’ TOEPTHI f PERTH? 

I i;9D0E 02 1 D — 9V000E TTI - <S .POOF 00 9 .'00 OF TIT ft. 00 OF 00 

irN XONST AN1 S— = 

CONSTANT MATERIAL CRACK GROWTH RATE RET AROATIPN MPDIT 

-NUMBER TYPE SURFACE DEPTH SURFACE T1FPTH * 

1 t 7.5006-10 7.500E-I0 0.0 0.0 

? ' I 2 .T 40F~ 00 2iTAOFOO TTiO TUD “ 

3 i o.OOOE Ol 9.000E 01 0.0 0.0 

A 1 6". POOF oo 5. poor oo — 0^0 OTP 


PROOF INPUT DATA 


PROOF TYPE 1 LOWER A 0.0 

— proof rvpooF or upper a 3TOooE=irr 

KC PROOF 7. POOF 01 A/C 3.330E-OI 

K A PROOF ~ 9.P0DFTn ITERATION LIMIT ITJO 






•J' 


m 1 1JJ 1 1 1222222222232233333 3 344 4444444453355355556666666666777777777 78 
3*567p 12 3» 56 7P®01224!:67{ , 401 2 3456789012 34567890 12345678901234567890 1234567890 


PJH l G4Dt D LUG WITH PL07TIN 


1 1 1 


1 

190. 1 C 0 9C. 

6 • 9 

Q_5 : 

7.5E-10 

2.74 

♦c. 
6 • 

two 


1111111 11122222222223332323333444*4444445355355553666666666677777777778 
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RU N 


P6AC PIN LOADED CUT, WITH PLOTTING 


o s 

* 3 } S 


C*ACK IS A PA*T THRtf CRACK 


HALP SURE ACE 

BLOCK 5TFP CVCUE5 CRACK ITNGTH CRACK DEPTH 

f IN I (INI 


KNAR-SURE ACE 
(K SI K COT-INI 


KNAR-DEPTH 
IKS 1 ROOT-INI 


SURFACE 
UROWTH RATE 
I IN/CYCLE I 


r~ 

L 


~ovn 

t.OOOE 03 


ttittof =tnr 

1.102E-01 


i.onoE-oi 

I.IS8E-01 


J.Z05E Ot 
3*207E 0 1 


sItzte 01 


I.0Z0E^J5~ 
1*021 E— 05 


DEPTH 

GROWTH RATE 
I IN/CYCLE 1 


ulow-w 


1 



RUN 


ryt-AC PIN LOADEO LUG MITM PLTTT ING 


CRACK IS A CRACK IN 1RANS1T ION 


mnCK STro 


MALE FRONT HALF RACK FRONT RACK 

CYCLES CRACK'LTNGTH CRACK LENGTH * KH IX- FRO NT KPRX-RACK — GROWTH RATE » GROWTH RATE 

(INI I IN I IKS1 ROOT— INI IKS! ROOT-INl I IN/CYCLE » MH/CVCLE! 






1 


P 6 AC PIN tOADrO IW WITH PLOTTING 


CRACK IS A THROUGH CRACK 


BLPCK 

ST C P 

CYCLE* 

HALF 

CRACK LENGTH — 
UNI 

KPUJC 

IKSI KH9T-JNI 

CRACK 

GRTOTF RATE 
UN/CYCLEI 

- 

" O 


T,134E 07 

1* 9fc3fc-01 

01 

f •innfjf-ys 


9 

1 

l.OOOF 03 

2.09IE-01 

5.5A5F Ol 

7.020E-05 


1C 

1 

0.0 

2.D9ir-Trr 

^svnroi 

"7.020E-^ 



10 

l 

1.000* 03 

2.79 7E-01 

5.559F 01 

7.105F-0S 


20 

\ *“ 

~3.0 

I.227FW 

— 5.955E 01 

' ZVTOYF-O* 



ir^irtnAo tracturf occur* in the <r block 1 step after n.oasr 02 cyclfs 

THUTICAL K AT SURFACE MA3 TTFTN'TX CFFOl D~TH ’ THE 70" KLTJCR“ 'ANH^THT T~STFP AFTTR f*2 * IE OrrYCLES 


W 

I 

u> 

u 


I 


r 


TATA 

DATA 

TAT^ 

DMA 


t . OOOE-Ot 

1.1 ?v£=vr 

1.25*fc-01 
i.32ir-oi 
i.43oe-oi 
i.se*E=0T 
i.59 5r- oi 

U779E-01 

1.53?F^ni 

1 .94 6E-01 

7 . 0107^01 
2.13 4 E -01 
“?;T0OE-or 

2. 3247-01 
7.37lF~0r 
2.4«2E-01 
2V525E-01 
2.5256-01 
"275256-01 
2.525E-01 
■275256=01 
2.525E— Of 
“2; 5756=01 
2.4256-0 l 


PIN LOAOCO LUG WITH PLOTTING 


l.OOOE 03 


1.0006=01 
1 • 0616-01 
“171076=01" 
I.163E-01 
1.2046-01 
1.771E-01 
1 . 31*56=01 
1.3716-01 
-T.-onr^rrr 
1 . 4796-05 
1.5116=01 
1.576E-01 


0.0 

S.?eSF02 
TVOOOF 07 
1.516E OH 
2.0006 03 
2.4731 03 
370006 03“ 
3.4366 03 
AiOObf; m 
4.5886 03 
"5.00 0E 03" 
5 .5306 03 


► 5136=01 67000F 03“ 


1.G03E-CI 


6.473E 03 


2.3246-01 i.7t)*6-01 7.6171: 07 

7.3716=01 l.H15F=0T — "370006 03~ 

2.4*26-01 1.081L-01 8.527r 03 

775256=01 "270716=01 "970006-03“ 

2 • 5256—0 l 2.47 66-01 9-5 136 03 

2.525E-01 3.21 56-01 1.G5-.E <K 

~2 7575F=01 375156=01 1.1 006 0*~ 

?. r ’25C— 01 3.O20E-01 1.150E 04 

“2 i 5756=01 t; 2526=01 “ T72O0F 0*“ 

2.4256- 01 4.69 76-01 I. 2526 04 

2.525E-01 5.49*6-01 1.3526 04 

2; 525r-oi “ 5v8*AE=ot t;400E or 

2.525E-01 6.3OIC-01 l.*56E 04 

7i525E-Ot 67 7326=01 1.500* 04 

2.5256-01 7.289E-C1 1.5516 04 

2v525E=OI T77t9F=Ot 176006 04 

2. 525E-C1 8.35*6-01 .1.6516 04 

?752 56=Ol “- 8785*6=01 IvTOOE 04" 

2 .5256-01 9 . 608 E -01 1.755E 04 

“2i5256=0l 170276“ 0O 1 7800E 0* 

2.4256- 01 1.1346 00 l.B5*€ 04 

“tv 5t5E=01 

2.5256-01 
2;575F=G1 


8785*6=01 lvTOOE 04 

9.608E-O1 1.755E 04 

"170276“ 0O 1 iflOOf 04- 

1.1346 00 1.854 6 04 

1.-25E 00 1.9516 04 

1V739E OD 179726 04“ 


CRITICAL K AT SURFACE EXCEEDED 

20 BLOCK l STEP 7.241E 02 CYCLE 


H04 ** 
-HDF4 
H046 
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itabular Input p 

.21 3_1£0.Q l£_ 

3 1 . 0 

A 1 0 18 0. 

5 120. 0. 


7 99. 

15 _L_ 

16 190. 

— 13 J£l* 

17 8. 


4 0 0 90. 


17 12. 
_17..JA*_ 
17 30. 
_17-8±s_ 

17 90. 

18 .3 


Run 1 


l.E-13 
_l. l r. Q 9. 
i.E-oe 
1 . f -07- 
2.4E-06 
9 » E— O b 
5.E-05 


19 . _ 1*1-0; 

3 1. 

_A 3 X_ 

7 99. 

_1 __2 

9 0. 

! , 

9 1.2 

._i-U 5 

9 1.7 

_9 1.8 

9 2. 

_?3.. 

9 100. 


3.E-13 
3.F-Q9 
3. E-OB 

-A mIz SJL 
7.2E-06 
2 .7E-05 
1.5E-0* 
JjL-02_ 
0 0 


4.E-13 
4.C-09 
4.E-08 
4 . E— 07 

1. E-05 
4.E-05 

2. E-04 
_4*lr02_ 

0 



Run 2 



11 1 . 
,11_.9_ 
11 .7 
11 .63 
11 .7 
11 ..8 
11 1.1 
11 1.1 
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123456789012345678901234567890123456789012345678901 234567890123456 78901? 34 567890 


Cerd Type 
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B-^5 
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LL-_ 

> 1.2 

LI. 5 ; ... 

> 1.7 


> 100 , 


i.e*i5 

1 15 

l.E+15 


1 . 

1. 

1.1 

1.2 

1.3 

2. 

100. 

1. 

1. 

1.2 

1.3 

1.4 

2.4 

120. 

1.1“ 

1.1 

1.2 

1.4 

1.6 

3. 

160. 

1.3 

1.3 

1.4 

1.5 

1.8 

4. 

180. 

1.7 

1.7 

1.9 

2.2 

2.5 

5. 

200. 

2. 

2. 

2.5 

3. 

5. 

6. 

250. 

4. 

4. 

6. 

8. 

10. 

15. 

300. 

10. 

10. 

15. 

20. 

30. 

40. 

350. 

100. 

too. 

200.“ 

300." 

350. 

400. 

«*00. 
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U MkM inrut exahrl es 


L 


*un 1 of 

IPAD 1NFUT PATA 


STRESS FACTO* 1.000E 00 

HULL ST R ESS I . PPQE_02 

STEF ms aia^ NlH -STRESS UHITSICYCLESI MATERIAL TYPE 


/ 


I 1.200E 02 0.0 2.500E 01 1 


CtPMETRV INRUT DATA 

CR ACK TYPE FTC - 1 

WIDTH 9.900E 01 

ADDITIONAL D IME NSION 0.0 

RADIUS /NOTCH DiFTH 0.0 

THICKNESS >. POPE -01 

CRACK PERTH S.000E-02 

MAIF_CRACK LINGTM 7.500 E-02 


MATERIAL INRUT DATA 








CRITICAL 

THRESHOLD 

CRITICAL 

Threshold 



haterial 


YIELD GROWTH RETARDATION STRESS 

INTENSITY STRESS INTENSITY 

STRESS INTENSITY 

STRESS INTENSITY 



TYRE 


strength equation model 

(SURFACE 1 

( SURF ACE 1 

(DERTH ) 

1 OERf Hj 

i 


i ' 


1 . 

,900E 0 ? 

4 0 " 

9. 

OOOE oi 

A. OOOE 00 

9. OOOE Of 

6 . OOOE OO 

! 


MATERIAL 

TYPE 

1 TABLE 

7 








.... 


RE* 

0.0 

3 . 066 E-OI 

s.oooe-oI 

I.cooe 66 




'j 

DKE* 

6 . OOOE 

00 


t.OOOE-13 

3. OOOE -13 

4. OOOE— 13 

4. OOOE- l 3 




i 

DKE* 

8 . OOOE 

00 


1 .OOOE— 09 

3. OOOE -09 

4 .OOOE— 09 

4. OOOE— 09 




1 

DKE* 

1 .OOOE 

01 


l.OOOE-OB 

3 .OOOE— 08 

4.000E-08 

4.O00E-08 




1 

DKE* 

1.200E 

01 


1.000E-07 

3. OOOE— 07 

4.000E-07 

A. OOOE— 07 




. .] 

DKE* 

! . 600E 

01 


2.A00E-06 

7.200E-06 

1 .OOOE— 05 

1 .OOOE—05 





OKE* 

3. OOOE 

01 


9. OOOE— 06 

2.700E-05 

4. OOOE- 05 

4. OOOE— 05 




1 

OKE* 

S.400E 

01 


5.000E-05 

1.500F-04 

2.000E-04 

2.000E-04 





DKE* 

9 .OOOE 

01 


i .OOOE— 02 

3. OOOE -02 

4. 000 E-02 

4. OOO E-02 




* 


MATERIAL 

TYPE 

1 TABLE 

8 







— ■- 



RE* 

6.0 

3. OOOE -01 

5.66oe-oI 

l.oooL 66 




| 

OK E* 

4 . OOOE 

00 


l.OOOE-13 

3.000E— 1 3 

A.000E-13 

4.000E-13 





OKE* 

8 . OOOE 

00 


1 .OOOE— 09 

3. OOOE -09 

4.000E-09 

4.000E-09 





DKE* 

1 .OOOE 

Ol 


1 .UO 0 E-O 8 

3.000E-08 

4.000E-0B 

4 .OOOE— 08 




:* 

OKE* 

1.200E 

01 


1.000E-07 

3.000F-07 

4.000E-07 

A.OOOE^OT 




f 

$ 

DKE* 

I.AOOE 

01 


2.400E-06 

7.200E-06 

1. OOOE— 05 

1. OOOE— 05 




I 

OKE* 

3. OOOE 

01 


«.o 6 oe-C 6 

2.7OOE-05 

A.00OE-05 

4. OOOE— 05 





OKE* 

B.400E 

01 


5 .000E-05 

5 • 500E-04 

2. OOOE- 04 

2.000E-OA 




3 

OKE* 

9.00CE 

01 


t . 66 OE -62 

3.000E-02 

4.000E-O2 

4.OO0E-02 




1 


| 


•1 






> 


) 


RUN 


TABULAR. INPUT EX»Nflf S 






CFACK 

IS A PART THRU 

CRACK 








HALE SURF AC F 





SURFACE 

DEPTH 

BLOCK 

srr p 

CYCtrs 

CRACK LENGTH 

CRACK DEPTH 

K MAX-SURFACE 

KHAX -DEPTH 

GROWTH RATE 

GROWTH RATE 




UNI 

I1NI _ 

(KSI R001-INI 

IKSI ROOT-INI 

UN/CYCL6I 

1 IN/CYCLE ) 

1 

l 

0.0 

7.5006-0 2 

5 .0006-02 

3.4776 

01 

4.0076 01 

1.151E-05 

1.4576-05 

I 

l 

2. SOOt 01 

7.52*»E-02L . . 

5.03«-0a 

3.4776 

01 

4.0076 01 

1.1516-05 

1.4576-05 

10 

i 

0.0 

7.7666-02 

5.3326-0 2 

3.61 26 

01 

4.0006 01 

1.2266-05 

1.5026-05 

10 


2.5006 01 

7.7976*02 

5.3706-02 

3.6126 

01 .. 

4.080E 01 

1.2266-05 

1.5026-05 

70 

i 

0.0 

0.0626-02 

5.7136-02 

3.7616 

01 

4.1626 01 

1.3126-05 

1.553 6-05 

20 

L 

2.5006 01 

0.1 156—02 

5. 7526-02 

_3l.J6_16_ 

QL 


l*3UEr05 

1.5531-05 

30 

1 

0.0 

8.4206-02 

6.108E-02 

3.9006 

01 

4.253E 01 

1.3906-05 

1.6106-05 

30 

1 

2. 5006 01 

0.455f-O2 

6. 148 F— 02 

3.9006 

01 

4.2536 01 

1.3986-05 

1.6106-05 

40 

1 

0.0 

0.7796-02 

6.517E-02 

4.054E 

01 

4.3536 01 

1. 4866-05 

1.4736-05 

40 

1 

2.500E 01 

8. BITE-02 

6.5596-02 

4.0546 

01 

4.353E 01 

1.4866-05 

1.6736-05 

50 

1 

o.o 

9.1616-02 

6.943F-02 

4.2006 

01 

4.4556 01 

1.5766-05 

1.7396-05 

50 


2 . soot 01 

9.2006-02 

6.98AE-02 

4.2006 

01 

4.455E 01 

1.5766-05 

1.739E-05 

60 

1 

0.0 

9.5656-02 

7.3056-02 

4.346F 

01 

4.5586 01 

1*6696-05 

1.0066-05 

60 

1 

2.500E 01 

9.607E-02 

7.430E-02 

4.346E 

01 

4.5506 OI 

1.6696-05 

1.0066-05 

70 

1 

0.0 

9.993E-02 

7.043E-O2 

4.4086 

01 

4.656E 61 

1.7616-05 

1.0716-05 

70 


2.500E 01 

1.0046-01 

7.8906-02 

4.40S6 

01 

4.6566 Oi 

l.TtlE-05 

1.8716-05 

00 

1 

0.0 

1.044E-O1 

8.3196-02 

4.6316 

01 

4.7566 01 

1.8556-05 

1.9396-05 

00 

1 

2.5006 01 

1.0496-01 

8.3676-02 

4.6316 

01 

4.7566 01 

1.0556-05 

1.9396-05 

<*0 

1 

0.0 

1.0926-01 

0.0116-02 

4.7746 

01 

4.0596 01 

1.9516-05 

2.0096-05 

90 

l 

2.500E 01 

1.097E-01 

8.861F-C2 

4.7746 

01 

4.859E 01 

1.951E-05 

2.0096-05 

100 

1 

0.0 

1. 1426-01 

9.322E-02 

4.9176 

01 

4.965E 01 

2.0506-05 

2. 083 E— 05 

loo 

1 

2.S00E 01 

1.1476-01 

9.3746-0? 

4.9176 

01 

4.9656 01 

2.0506-05 

2.0036-05 

110 

1 

0.0 

1.1946-01 

9.8516-02 

5.0626 

01 

5.074E 01 

2.151 E— 05 

2.1606-05 

no 


2.5006 01 

1.1996-01 

9.9056-02 

5.0626 

01 

5.074E 01 

2.1516-05 

2.1606-05 

120 

— 

0.0 

1.2496-01 

1.0406-01 

5.2076 

01 

5.1866 01 

2.2556-05 

2.2396-05 

120 

1 

2.5006 01 

1.2556-01 

1.04 66-01 

5.2076 

01 

5.1066 01 

2.2556-05 

2.2396-05 

130 

l 

0.0 

1.3076 -01 

1.0976 -01 

5.353E 

01 

5.3016 01 

2.3616-05 

2.3236-05 

130 

1 

2.5006 01 

1.3126-01 

1.1036-01 

5.3536 

01 

5.301E 01 

2.3616-05 

2.3236-05 

140 

i 

0.0 

1.3676-01 

1.1566-01 ~ 

5.5016 

01 

5 .4196 01 

2.4706-05 

2.4106-05 

140 

i 

2.5006 01 

1.3736-01 

1.1626-01 

5.5016 

01 

5.4196 01 

2.4706-05 

2.4106-05 

150 

i 

0.0 

1.4306-01 

1.2176-01 

5.6506 

01 

5.5406 01 

2.5036-05 

2.5006-05 

150 

i 

2.500E 01 

1.436E-01 

1.2236-01 

5.6506 

01 

5.5406 01 

2.5036-05 

2.5006-05 

160 

i 

0.0 

1.4966-01 

i. 2816-01 

5.0006 

01 

5 .465E 01 

2.6986-05 

2. 5946-05" 

160 

i 

2.5006 01 

1.5026-01 

1.2876-01 

5.800E 

Ol 

5.6656 01 

2.6986-05 

2.5946-05 

170 

i 

o.o 

1.5646 -01 

1. 3476-01 

5.9516 

oi 

5.7966 01 

~ 2.8166-05 

2.695E-05 

170 


2.5006 01 

1.5716-01 

1.3536-01 

5.9516 

01 

5.7966 01 

2.8166-05 

2.695E-05 

100 

! 

0.0 

1.6366-01 

1 .4156—01 

6.1046 

01 

5.9296 01 

2.9386-05 

2.799E-05 

. 100 

1 

2.500E 01 

1.6446-01 

1.4226-01 

6.1046 

01 

5.9296 01 

2.9386-05 

2.7996-05 

190 

1 " 

OzO 

1.7116-01 

"I. 4866-01 

6.25 96 

01 

6.0666 Oi 

3. 063E-d5 

2.908E-05 

190 

1 

2.SOOE Ot 

1.7196-01 

1.4946-01 

6.25 96 

01 

6.0666 01 

3.0&3E-05 

2. 908 E- 05 

200 

i 

6.6 

1.7096-01 

1.5606-61 

6.4166 

oi 

6.2076 01 

s.iwE-or - 

3.02 iE-OS 

200 

i 

2.500E 01 

1.7976-01 

1.5686-01 

6.4166 

01 

6.2076 01 

3. 192E-05 

3.021 E-05 

210 

r 

0.0 

I.870E-01 

1.6376-01 

6.5756 

01 

6.3516 01 

3.3256-05 

3. 1306-05 

210 

i 

2.5006 01 

1.0796-01 

1.6456-01 

6.575E 

01 

6.3516 01 

3.3256-05 

3.1306-05 

220 

i 

6 JO 

i.95SE-oi 

1.7176— 01 

6.7366 

oi 

6.4996 Oi 

* 3. 462 6—05 

3.2616—05 

220 

t 

2.5006 Ot 

1.964E-01 

1.7256-01 

6.7366 

01 

6.4996 01 

3.4626-05 

3.2616-05 

230 

i 

0.0 

2.0436-01 

1.8006-01 

6.9006 

01 

6.6506 OI 

3.603 6H23 

3.3096—05 

230 

i 

2.5006 01 

2.0526-01 

1.8006-01 

6.900E 

01 

6 .4506 01 

3.6036-05 

3.3896-05 

240 

i 

0.0 

2.1356-01 

1.8066-01 

7.0656 

01 

6.0O6E 01 

3^7486-05 

1^05 

240 

t 

2.5006 01 

2.1446-01 

1.8956-01 

7.065E 

01 

6.006 6 01 

3.7486-05 

3.5226-05 

250 

! 

0.6 

2 .2 306 -Oi 

1.9766-01 

7.2346 

01 

6.9666 01 ' 

3.8986-65 

3.661 6—05 ' 

250 

1 

7.5006 01 

2.2406-01 

1.9856-01 

7.2346 

01 

6.9666 01 

3.0986-05 

3.6^1 6-05 

260 

1 

0.0 

2.3296-01 

2.0696-01 

7.4056 

oi ~~ 

7.i3il 01 

4.0536-05 “ 

3.0046—05 


! 


, - - — . .. 




i 

'« 

\ 

\ 

s > 

‘i 


260 

1 

2. 5005 01 

2.3395-01 

2.078t-01 

7.405E 01 

7.1315 01 

4.053E-05 

3.0065-05 

2 TO 

1 

0.0 

2.432E-01 

2.166E-01 

7.5785 01 

7.3015 01 

4.2125-05 

3.9585-05 

270 

1 

2.500E Ot 

2.443E-01 

2.176E-01 

7.5785 01 

7.3015 01 

4.2125-05 

3.9565-05 

260 

1 

0.0 

2.540E-01 

2.266E-01 

7.7555 01 

7.4755 01 

4.3775-05 

4.1175-05 

260 

1 

2.500E 01 

2.651F-01 

2. 2775-01 

7.7555 01 

7.4755 01 

4.3775-05 

4.1175-05 

2*0 

1 

0.0 

2.6515-01 

2.3715-01 

7.9345 01 

7.6565 01 

4.5475-05 

4.2845-05 

290 

1 

2.5005 01 

2.662E-01 

2.3825-01 

7. *345 01 

7.656 5 01 

4.5475-05 

4. 28% 5-05 

300 

1 

0.0 

2.767E-01 

2.480E-01 

8.1 175 01 

7.8425 01 

4.723E-05 

4.4595-05 

300 

1 

2*.5O0£ 01 

2.7705-01 

2.4915-01 

8. 1 175 01 

7.8425 01 

4.7235-05 

4.4595-05 

310 

i 

0.0 

2.8875-01 

2.5945-01 

8.3035 01 

8.0355 01 

4 e 904 E— 05 

4.6441-05 

310 

i 

2 .500* 01 

2.8995-0 i 

2.605E-01 

8.3035 01 

8.0355 01 

4.9045-03 

4.644 5—05 

320 


0.0 

3.0365-01 

2.7125-01 

8.4845 6l 

8.2765 Ol 

1.0765-04 

4.8785-05 

320 

I 

2.5 005 01 

3.0635-Cl 

2.7245-01 

8.4845 01 

8.2765 01 

1.0765-04 

4.8785-05 


f. f M I T .10*0 FRACTURE OCCURS IN. THE. 173 BL OCK 1 S TLP A FTER 0.0 CYCLES 


CRITICAL K AT OEPTM HAS BEEN EXCEEDED IN THF 326 BLOCK AND THE I STEP AFTER 1.233E 01 CYCLES 




\ 


WIN 2 CE 3 RUNS TABULAR INPUT EXAMPLE S_ 

J.C4P INPUT DATA 

STRESS FACTOR 1,000* 00 

LIMIT STRESS l.POOE 02 

STEP MAX STRESS Mire STPESJS UN1TMC YCJL££J HAT E B J A L JLTPJEL 

1 1.2G0E 02 0.0 2.500E 01 1 


GEOMETRY INPUT DAI* 


CRACK TYPE TC_ r 7 

WIDTH 9.900E 01 

ADDITIONAL DIMENSION 0.0 

RADIUS/NOTCH DEPTH 0.0 

TM.ICKNfSS. .... 5. 000E-01 

HALF CRACK LENGTH T.500E-02 



TABLE IS BETA C 


W 

I 


C-_0.0 _ 

C~ l.OOOE 00 
C* I.200F 00 
C* I.BOOE 00 
C= 1.700E 00 
C= 1.800E 00 
C= 2 .Q00E_00 
C= 3.000E 6b 
C* l.OOOE 02 


A* 0.0 

l.OOOE 00 
1 .OOOE oo 
9.000E-01 
7.C00E-0I 
6.500E-01 
7.000E-01 
B .OO OE— 01 
I.IOOE 00 
I.IOOE 00 


l.OOOE 00 
l.OOOE 00 
1 .OOOE 00 
9. OOOE— 01 
7.000E-0I 
6.500E-01 
7.000E-01 
8 .OOO E— 0 1 
I.IOOE 00 
l.LOOE 00 



TABLE 2 : BETA A 


A*. _0.Q 


C* 

0.0 



0.0 





table 


3* 

BETA C 




. .. ' * — ' 




A* 0.0 

- 

I .OOOE 

00 

C* 

0.0 



l.OOOE 

00 

l.OOOE 

00 

c* 

l.OOOE 

00 


l.OOOE 

00 

l.OOOE 

00 

c* 

1.700E 

00 


1.200E 

00 

J.200E 

00 

C* 

1.5001: 

00 


2.000F 

00 

2. OOOE 

00 

c* 

1.700E 

00 


3. OOOE 

00 

3. OOOE 

00 

c* 

t.ROOE 

00 


1 .000* 

01 

1 .OOOE 

01 


2. OOOE 

00 


l.OOOE 

15 

1 .OOOE 

15 

c* 

3. OOOE 

00 


l.OOOE 

15 

l.OOOE 

15 

c* 

l.OOOE 

02 


l.OOOE 

15 

I .OOOE 

.15 _ _ __ . _ _ 


TABLE 


41 

_B CIA A 







A 

* 0.0 



. 


C* 0.0 0.0 


\ 


nateriai input data 






CRITICAL 

THRESHOLD 

CRITICAL 

THRESHOLD 

MMERIU 

Y|Fi D 

GROWTH 

RETARDATirN 

STRESS INTENSITY 

STRESS INTENSITY 

STRESS INTENSITY 

STRESS INTENSITY 

TYRE 

STRENCTH. 

EQUATION^ 

MODEL 

1 SURFACE) 

JSW?*CJEJ 

(OEfTH) 

(DEPTH) 

1 

i.9oor 02 

4 

0 

V.OOOF 01 

. 6. OOOE 00 

9 . OOOE 01 

6. OOOE 00 



MATERIAL TVFT 

l TABLE 

7 

.... 




RE* 

0.0 

3. OOOE— 01 

5.000E-01 

l.OOOE 00 

t*E = 

6. OOOE 

00 

1 .OOOE-13 

3.OO0E-I3 

A .OOOE— 1 3 

4.000E-I3 

ORE* 

8. OOOE 

00 

t.OOOF-09 

3.000E-09 

4.000E-0V 

-3.000E-09 

ORE* 

l.OOOE 

01 

1 .000E-08 

3.000E-08 

A.000E-08 

4.000E-08 

ORE* 

1.200E 

01 

I.OOOE-OT 

3.000E-07 

4.0C0F-07 

4.000E-07 

ORE* 

1.600E 

01 

2.400E-06 

7.200E-06 

1.000E-05 

l.OOOE* 05 

ORE* 

3.000E 

01 

O.000L-06 

2.700E-05 

4 .OOOE— 05 

4. 000E-05 

ORE* 

8.400E 

01 

5.000E-05 

I.300E-04 

2. OOOE -04 

2 .OOOE— 04 

ORE* 

9* OOOE 

01 

1 .000F—02 

3. OOOE -02 

4.000E-02 

4.000E-02 

_ 

MATERIAL im 

1 TABLE 

e 

- 

. 



RE* 

0.0 

3.000E-01 

5.000E— Ol 

l.OOOE 00 

ORE* 

A. OOOE 

00 

l.OOOE-13 

3.000E-13 

A .OOOE— 1 3 

4. OOOE— 1 3 

ORE* 

8 . OOOE 

oo 

1 .OOOE-09 

3. OOOE -09 

4. OOOE— 09 

4. OOOE— OR 

WE* 

l.OOOE 

01 

1.000F-06 

3.000E-08 

VoooE-oe 

’ 4. 000E-06 

ORE* 

! .200E 

01 

I • OOOE— 07 

3. 000E-07 

^.000E-O7 

4.O00F-0T 

ORE* 

1.600E 

01 

2.400E-06 

7.200E-06 

i.oooE-os 

l.OOOf-05 

ORE* 

3. OOOE 

ol 

9. OOOE- 06 

2.700E-05 

4. OOOE- 05 

4.000E-05 

ORE* 

8.400E 

01 

S .0001-05 

1.500E-04 

2. OOOE— 04 

2.000E-O4 


IKE* 9. OOOE Ol T.000E-02 3.000E-02 4.000E-02 4.00OE-02 



RUN 2 


1ABUIA«> INP1I1 EXAMPLES 

CRACK. IS A THROU GH C RACK 






HALF 


CRACK 


BLOCK 5TLP CYCLES 

CRACK L 6 NGTH 

KHIX 

GROWTH RAT 6 

'O © 



I !M> 

(K SI ROOT— IN 1 

f IN/CYCL61 

« g 






*3 S 

1 

o.o 

7. 5006—02 

5.6396 01 

2.7296-05 


1 

2.50OE 01 

7.5686—0? 

5. 8396 OI 

2.7296-05 


10 

0.0 

8. 1336-02 

6.0616 01 

2.9196-05 

50 F 4 

10 

2.500* oi 

6 .? 0 bE -02 

6.0816 01 

2.91 96-05 

9 T) 

2C 

0.0 

8.8876-02 

6.3576 01 

3.1436-05 


20 

2.5006 01 

__.8«966Lr02 

6*3576 Cl 

_ 3. 143I-Q5 .. 

o 

30 

0.0 

9.6996 - 0 ? 

6.6-16 01 

3.3806-05 

C « 

30 

2.500F 01 

9.78A6-02 

6.6A16 01 

3.3806—05 

^ t-H 

AO 

0.0 

1.05 76-01 

6.9336 OI 

3.6326-05 

►< CO 

AO ] 

2.5006 01 

1.0666-01 

6.9336 01 

3.632C— 05 


50 1 

0.0 

1.1516-01 

7.2366 01 

3.8986-05 


50 .. 1 

„ 2. 500.6. OA 

_i.l61£r01 

7*2346 01. 

__3. R986-05 


60 ] 

o.o 

1.2526-01 

7.5-3F 01 

A. 1806-05 


60 1 

2.5006 01 

1.2626-01 

7.5A3E OI 

A. 180E— 05 


70 1 

0.0 

1. 3596 -01 

7.8626 01 

A. 4786-05 


70 

?.50or oi 

1.3716-01 

7.8626 01 

A. A78 6—05 


80 1 

0.0 

1.4756-01 

8.1896 01 

A. 7926-05 


80 ] 

2.5006 01 

1 • A876 — 01 

8.1891 01 

A. 7926-05 

w 

90 

0.0 

1.6746-01’ 

8.72-6 01 

9.1A2E-OA 


I 




RUN 3 OF 3 RUNS 


tabular input exahplfs 


LOAD INPUT PAT A 


STRESS FACTOR 1.0006 00 

L1MI1 STRESS 1.5006 0? 

STEP WAX ilRESS WIN STRESS UNITS(CYCLE SI WATER 1A L TYP E 



1 

1. 

2006 02 

O 

•0 


2.5006 

01 


1 


GEOMETRY INPUT 

DATA 










CPACK T7*E 


PTC - 

T 







WIDTH 




O.QOOF 01 







ADMTICNAL 

OIPENSION 

0.0 








RAOIUS/NPTCM DEPTH 


0.0 








thickness 



5 .0006-01 







caack depth 


5. OOOE -02 







HALF CRACK 

LENGTH 


T. 500E-02 







TABLE 

it 

BTTA C 











A 

* 0.0 



l.OOOE- 

-01 

2. OOOE- 

-01 

3. OOOE* 

-Ol 

c= 

o.o 


l.OOOE 

00 


l.OOOE 

00 

1.100E 

00 

I.TOOE 

00 

c= 

1. OOOE— 0 1 


l.OOOE 

00 


l.OOOE 

00 

1.200E 

00 

1.300E 

00 

c* 

2.0C0E-01 


l.ioor 

00 


1.1C0E 

00 

I .2006 

00 

I.400E 

00 

c* 

t.OOOE-Ol 


I.TOOE 

00 


1.300E 

00 

1.40CE 

00 

1.500E 

00 

c- 

6* OOOE— 0 1 


I.TOOE 

OO 


I.TOOE 

do 

l.ioor 

OO 

2.200E 

do 

c= 

8.000E-01 


2. 0006 

OO 


2.0006 

OO 

2.S00E 

OO 

3. OOOE 

00 

c= 

l.OOOE 00 


4.000F 

00 


Hm OOOE 

00 

6. OOOE 

00 

8 .OOOE 

00 

o 

2. OOOE 00 


l.OOOE 

01 


l.OOOE 

01 

1.500E 

01 

2. OOOE 

01 

c* 

l.OOOE 01 


l.OOOE 

02 


l.OOOE 

02 

2. OOOE 

02 

3. OOOE 

02 


table 

2t 

BETA A 











A 

* 0 .0 



1.0006-01 

2.0006- 

-or 

3.000E-01 

c* 

0.0 


1.100E 

00 


1.100E 

00 

1.1006 

00 

1.200E 

00 

o 

?.oooE-di 


1.100E 

00 


1.100E 

00 

1 • 2006 

00 

I.300E 

00 

c* 

4.000E-01 


1.100E 

00 


1.100E 

00 

1.2006 

00 

1.400E 

00 

c* 

8.000E-0I 


1 * 3 OOF 

OO 


l .300E 

00 

I.AOOE 

do 

l.SOOE 

00 

c* 

1.200E 00 


1 .TOOE 

00 


I.TOOE 

00 

1.9006 

00 

2.200E 

00 

c* 

I.AOOE 00 


2. OOOE 

do 


2.0006 

OO 

2.500E 

OO 

3.0006 

00 

c* 

2. OOOE 00 


4. OOOE 

00 


4 .OOOE 

00 

A. OOOE 

00 

8 .OOOE 

00 

c« 

4. OOOE 00 


l.OOOE 

01 


l.OOOE 

oi 

1.500E 

oi 

2. OOOE 

01 

c* 

2. OOOE Ol 


l.OOOE 

02 


l.OOOE 

02 

2. OOOE 

02 

3. OOOE 

02 


wateriaI Input data 


CRITICAL 

MATERIAL YIELD GROWTH RETARDATION STRESS INTENSITY 

TYPE STRENGTH EOUAT ION MOOEL (SURFACE I 

i 1.900F 02 A 6 V. OOOE 61 

MATERIAL TYPE 1 TABLE T 


RE* 0.0 3 . OOOE— 01 5 .OOOE— 01 I .OOOE (10 



4.0006-01 A. OOOE— 01 5 .OOOE— Ol 

1.30OE0O ' 2.006F65 1 .ooOE 02' 

1.4006 00 2.4006 00 1.2006 02 

i.AOOE 00 3. 0006 00 l.AOOE 02 

1 • B OOF 00 4.0006 00 l.OOOE 02 

2.5006 OO S.OOOE 00 2. OOOE 02 

5. OOOE 00 6. OOOE 00 2.500602 

i.oooe ol liSoOEOi" 5.666F oz 

3. OOOE 01 A. OOOE 01 3.5006 02 

3.5006 02 A. OOOE 02 4.6606 02 


A. OOOE- 6 1 4. A 60 6=01 R. 0006-01 

1.3006 OO 2. OOOE 00 l.OOOE 02 

1.4006 OO 2.4601 00 1.2006 02 

1.6006 00 3. OOOE 00 4.6006 02 

I.BOOE 00 A. OOOE 00 l.OOOE 02 

2.5006 00 S.OOOE 00 2. OOOE 02 

5.0006 66 A. OOOE 06 J. 5006 02 

l.OOOE 01 1.500E 01 3. OOOE 02 

‘3.0006 61 4.6006 61 3.3006 02 

3.5006 02 4. OOOE 02 A. OOOE 02 


fHRESMOLO CRITICAL THRESHOLD 

ESS JNTENSIJY STRESS INTENSITY STRESS INTENSITY 
( SURFACE I fDEPTHl (DEPTH! 

t^oof oo 9.666F1FI 4.6006 00 




DKE = *>.00 OE 

00 

1 .OOOE-n 

3.009E-13 

. 4.000E-1 3 

4.000&-13 

0KF= e.ooot 

oc 

1 .00CF-0O 

3.000F-09 

4*000E-0<> 

4.000E-09 

DKE* 1.Q00E 

01 . _ 

l,ooot-Ofl 

3.0OO£-Q8 

4.QOOE-08 

4.000E-08 

DKt= 1.200E 

01 

1 .000E-07 

3.000E-07 

4.000E-07 

4. OOOE -07 

D*E = l.f-OOE 

01 

2 .M>0£-0* 

7.200E-O6 

I.000E-05 

1 .000E-05 

DKE = 3.C00F 

01 

V.00GE-04 

2.7006-0* 

4.000E-OS 

c.OOOE-05 

DKE c 0.4OOE 

01 

5.000E-05 

1.500E-04 

2.000E-04 

2. OOOE— 04 

Wt» 9 . OOOt 

01 

1.00Cr-02 

3.C00E-02 

4 * OOOE-02 

4. 000E-O2 

MA1ERIAL TYPE 

t yabie 

8 




RE* 

o.o 

3. OOOE— Ol 

5. OOOE- 61 

l.OOOE OO 

DKE = 6. OOOE 

00 

i.OOOE-13 

3. OOOE -B 3 

4.000E-13 

4.O00E-13 

OKE = O.OOOE 

00 

l.OOOt-09 

3.000E-09 

-..000E-09 

4 .OOOE— 09 

D*E = J.COOt 

01 .. 

_laQQQEr38 

__ _3*QQ0f-QJ& 

4.000E-00 

4 . OOOE— 08 

OKE- 1.200E 

01 

1 .0OOF-O7 

3.000E-07 

4. OOOE- 07 

h.COOE-07 

DKE* i.60^E 

01 

2.4 00 c -0* 

7.200E-06 

1.000E-05 

1. OOOE— 05 

DKE- 3 .OUOE 

01 

9.000F-06 

2.700E-0S 

4.000E-0** 

4.000E-O* 

DKF = R.400E 

01 

5 .OOOfc-OS 

1.400E-04 

2.000E-04 

2.000E-04 

DKE - 9. OOOE 

01 

1.000E-02 

3.000E-02 

4. 000E-02 

4.000E-02 


w 

I 

Xs 

ut 


s © 

*5 15 

ss 

Wfe 

•o 

!-< ft” r 



?$&& -rftjt rc*v>v- 


i 


9 *“ 







RUN ? TABULAR input examples 

CRACK I S * P ART THRU CRACK 


BLOCK ST f P 

CYCLES 

HALF SURFACE 
CRACK LENGTH 

CRACK DEPTH 

kmax— sure ace 

KNAX— DEPTH 

SURFACE 
GROWTH RATE 

DEPTH 

GROWTH RATE 



1 INI 

11*0 

(K SI ROOT- IN) 

IKSI ROOT-IN) 

IIVCYCLEI 

fl N/CYCLEI 


l 

1 

0.0 


7.500E-02 

5.000E-02 

4.760T 

01 

5.245E 

Ol 

1.9476—05 

2*2626-05 

1 

1 

2.500* 

01 

7. 5496-02 

5 .05 7E— 02 

4.79 2F 

ot 

5 *.271 E 

01 

1.963E-05 

2.301E-05 

10 

1 

0.0 


7.Q55E-02 

5. 534 €—02 

5.016E 

01 

5.5 17E 

Ol 

2. 118E— 05 

2.4 83E-05 

10 

I 

2.500E 

t)l 

P.00HE-02 

5.596F-02 

5. 041E 

01 

5.543E 

Ol 

2.136E-05 

2. 504 €-05 

70 

1 

0.0 


8.50RE-02 

6.182F-02 

5.30 IF 

OL 

5.832 E 

Ol 

2.323E-05 

2.723E-05 

70 

1 

2.500E 

01 

0.566E-O2 

6.250E-02 

5.328E 

01 

5.861E 

Ol 

2.342E-05 

2. 745E—05 

30 

1 

0.0 


9.1HE-0? 

6.8*lE-0? 

5.S97F 

01 

6.157E 

01 

2.543E-05 

2.961E-05 

30 

1 

2.500E 

01 

9.177F-02 

6. P66E-02 

5.625E 

01 

6.188E 

01 

2. 564 E- 05 

3.005 €-05 

•©0 

1 

O.C 


O.776E-02 

7.fc67fc-02 

5.V04F 

01 

6*495E 

oi 

2.779E-05 

3. 2 58 E -05 

40 

I 

2. 5 OOF 

01 

9.R46E-02 

T.749E-02 

5. 934E 

01 

6.527E 

01 

2.0O3F-O5 

3.285E-05 

50 

1 

0.0 


1.050E-01 

8.515E-02 

6.253F 

01 

6.IWE 

61 

J.058E-05 

3.555E-05 

50 

t 

2 .500E 

01 

1.05BE-01 

8.604 E-02 

6.289C 

01 

6.878E 

Ol 

3. 008 E— 05 

3. 504 E— 05 

60 

I 

0.0 


1.130E-01 

9.439E-02 

6.636E 

oi 

7.206E 

01 

3. 377 E— 05 

l.(T3E-0$ 

60 

1 

2.500E 

01 

1.139F-01 

9. 5366-02 

6.675E 

Ol 

7.2A2E 

Ol 

3.4096*05 

3.90 56 -05 

70 

l 

0.0 


1.2 I9E-01 

1.04 5F-QI 

7.103E 

Ol 

7.602E 

01 

3.782E-05 

*.2346-0$ 

70 

I 

7.500E 

01 

L.22FE-01 

1.055E— OI 

7.158E 

Ol 

7..VAE 

Ol 

3.830E-05 

4.2736-05 

00 

1 

0.0 


1.319E-01 

I.IE5E-01 

7.673E 

Ol 

8 -0A8F 

6i 

4. 301 €-05 

4.654E-05 

80 

1 

7.500E 

01 

1.330E-01 

1.167E-01 

7. 733 E 

ol 

8.095E 

01 

4.356E-Q5 

A. 701 E— 03 

90 

1 

0.6 


~ 1.439E-01 

1.372E-01 

8.7I3E 

01 

6 .'5©*F 

W 

8. 275E-04 

4.377E— 63 


LIMIT LOAD FRACTURE. OCCURS IN THE 24 BLOCK i STEP AFTER 2.287E Ol CYCLES 

CRITICAL K AT DEPTH HAS BEEN EXCEEDED IN THE 90 BLOCK ANO THE I STEP AFTER 5.148E-01 CYCLES 


j 




V 


r 


i 



i 

i 




APPENDIX C 

STRESS INTENSITY FACTORS 
Through Cracks * 


Center crack 


K * a /rcsec 77 s 

eg W 


(Ref. C-l) 


Compact specimen, ASTM E399- 7 4 , 


K 


th W 


3/2 


29.6 (§)' S 185.5 (§ + 655.7 (p 


5/2 


k W' 

7/2 


1017.0 (§) + 6.38.9 (p 


W 
7/2 


(Ref. C-2) 


Single through crack at hole, 
K - 0 F F /7c 

C g B W 


(1.2133-2.205 s +.6451 S‘) 


F b “ * 
s “ c/ (Rad + c) 


w 


/. 


. c+2 Rad . 

sec <’ 2 > 


F^ is an equation which fits Bowie's (Ref .C-3,^ numerical data for 
the effect of the hole. F is a modification of Feddersan '6 (RefC-1) 

V 

equation to account for the affect of finite width. The distance 
(W-c) is twice the distance from the closest edge to the midpoint of 

the hole and crack length. The effective half crack length in F^ 

, ,c+2 Rad, 

is ( — —= ) . 


* See Figure 2 for geometry definitions. 


Double through crack at hole. 


R„ * °o K F „ /1fc 

C g D W 

_ . (1. 2133-2. 086+. 8727 S 2 ) 

F b - e 

S * P /(Rad+C) 

f v . /nrss rnx 

F b Is an equation which fits Bowie’s (Ref.C-3) numerical data 
for the effect of the hole. F is a modification to Feddevsen's 

V 

(Ref. C-l ) equation to account for the affect of finite width. 
(c+Rad) is used as an equivalent half crack length in F . 


General tabular description 

K - P F (c) /5FT 
c 

F (c) is tabular Input data. 

P is applied load compatible with F(c) 


Since numerical data may be generated by using a number of 
solutions (e.g., effect of hole and effect of width), the program 
has the capability of combining a number of tables to generate 
F(c). As many as three tables Fl(c), F2(c), F3(c) may be input 
and F(c) is set equal to the Interpolated value of 

F (c) - Fl(c)xF2(c)xF3(c) 

The format for the stress intensity factor table is: 


c(l,l) 

F(l,l) 

c(l,2) 

e 

F (1 , 2 ) 

e 

e 

c (1, tj) 

e 

F(l,£ 1 ) 


c (2 , 1 ) 

F (2 , 1 ) 

c( 2 , 2 ) 

a 

, 

F(2,2) 

• 

• 

c(2,A 2 ) 

• 

F(2,* 2 ) 


c(3,l) 

F(3,l) 

c (3 , 2 ) 

e 

F (3 , 3) 

e 

e 

c(3,i 3 ) 

e 

F(3,4 3 ) 


If only one table is read in, F2=F3=1. and * 2 an ^ *3 ®ust 

be Z 25. 

Pin loaded lug - two through cracks 


p 1-05 . . /ire . -\ 

2th 7 nr * ♦» + ~ *0 

*[♦»•* + *c ' 5 ] * F B 

(1 . 2133-2 . 086 x 5 + .8727 x S 2 ) 


c/Rad + C 


■K 


0 , 6 

v sec y 


1 

a , c 

A W 

* ■ 

h\K ~ 

P 

L P.c 

p,h " 

1-.08C 


1 

F.w " 

A w 


1 

P,c 

7i3£- 


x f2(Z/b 


(see Table Cl) 
(see Table Cl) 


,2Z.3 
k H ; 


1-.5(|^) + . 957(^) 2 -.16(§V 


f 1 (Z/b) 


(see Table C 1) 


w 

Rad + C 







\ \ \ \ V 'i ) ) 


>r f ( b « ir /2) 

£1 

1 

! 

°r ^ (b=w/2) 

£2 

2Z/H 

} 

£3 

0.00 

1.00 

0.00 

1.00 

1.00 

0.00 

.06 

.98 

.06 

.98 

1.0542 

.1666 

.12 

1, 

.13 

.96 

1.0666 

.20 

,19 

1.06 

.18 

.955 

1.075 

.25 

.34 

1.24 

.20 

.95 

1.0916 

.333 

.40 

1.3 

.26 

.95 

1.25 

.50 

.48 

1.36 

.32 

.955 

1.333 

.5714 

.54 

1.38 

.62 

1.0 

1.4166 

.6315 

.60 

1.395 

.70 

1.01 

1.625 

.80 

.72 

1.395 

.76 

1.01 

1.75 

.8888 

.80 

1.38 

.80 

1.0 

2.00 

1.0909 

.86 

1.36 

.86 

j 

.98 

2.24 

1.2632 

.96 

1.32 

.90 

.96 

2.72 

1.60 

1.0 

1.297 

.94 

.92 

3.64 

2.1819 



.97 

.88 

4.416 

2.6666 



1.0 

.826 

8.00 

4.8007 


^ 





! 

j 


TABLE Cl- Functions for Pin Loaded Lug 




The stress intensity factor is composed of two basic parts, 
that due to the uniform stress (P/Wth) and that due to the 
pin load P. The subscript a in the equations, applies to the 
former and the subscript P refers to the latter. 

The 1.05 factor on the pin load portion is there to account 
for the extra driving force due to the presence of Mode II 
stress intensity factors as well as Mode I. 

The pin load and uniform stress portions of the expression 
are composed of factors accounting for the effect of the 
hole (subscripted by B) , the effect of the circular end 
(subscripted by C) for the effect of the straight sides 
(subscripted by S). The latter contains effects of the 
finite width (subscripted by w) , and height subscripted 
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The expression for the effect of the hole has been described 

above. d> combines Feddersen's width effect and a tabular 
a 9 g 

description of the effect of the height taken from the data 

of Fichter (Ref.C-4). $ is a tabular description of pg. 11.6 

o » c 

of (kef. C-5) . $ is a tabular description of pg. 11.9 of 

P iC 

Ref. (C-5) $ „ is taken from Ref. (C-5) and $ is the width 

p,u P.w 

effect presented by Jada (Ref. C-7 ). The effective half crack 
length used in Rad + C. 


Pin loaded Lug - single through crack 



/trC 


W ^o| 


F b » e 


(1.2133-2.225 S 2 + .6451 S 2 ) 


S ■ c/Rad + C 


* e - /sec F3 (Z/H) 

C t 6 Lo 


b' 


w 

2 


_c 

2 


o , c 




F2 (Z/b’) 




♦ h - 1 -. 08 (|^)+ 2 . 69 (|^) 2 -. 99(|^) 3 

r 2 3‘ 

* . - — 1" • 5 (■—») + . 957 (—, ) - . 16 (■-, ) 

p * n _ b o d 

1 -f 

♦p,c - fz F1(2/B ’> 

C+2Rad 

2 " “1 

e - C/2 

The above exceptions are generated in a similar manner to the 
double crack case except that: 

a) The single crack expression for the hole effect Is used: 

b) The effective half crack length is (C+2Rad)/2. 

c) The effective half width Is taken to be ^ ” 2 


Double crack at double notch 

K e . f4 (S,h.ight/b)F v (Sm Irtl< c _ 2) 

S » c/b+c. 


l+‘. 122 (COS* (—£)) 
w 

1.122 


LSZ tan - 

ir(b+c) Can w 


Where F Is a modification of the double edge cracked tensile 
w 

formula given by Tada (pg. 2.7) (Ref.C-S. 


C-7 





















































F4 (S, height/b) is a table constructed from the curves presented 
by Tada (pg. 19.13) for a crack emanating from an edge notch i6 a 
semi-infinite sheet. 


Single crack at single edge notch . 


K £ ■ $ g SvC f 4 (S , height/b) F y 


w 


X 


. 75242. 02(t±S) + .37(l-,l,igtt^ J— 


1.122 COSrJb+£) 
2W 


I Vir(b+c) 


S ■ c/b+c 

Where F' w is a modification of the single edge cracked tensile 
formula given by Tada (pg. 2.11, Ref. C-5). 


Cracks coming out of shoulder 


K c - * g /7c f 4 (S,g) F w 


(See Table C-2) 


w 


1+. 122 (COS (^F £, » 4 j V|=: 


+c) 


tan 


Li 














































































notched plate, vhose notch dimensions are chosen such that the 
notch depth Is equal to (W-d)/2 and the notch height Is such 
that the 6tress concentration factor in the shoulder is the same 
as that at the notch. The table used to generate "g" is developed 
using the stress concentrations for a shoulder fillet (Ref. (C-6) 
and the stress concentration factor for a notch in a finite width 
plate . 


Part Through Cracks 


Basic Part through crack solution. 

B * minimum (a,c) 

K « c /rB F (a/c , 2 ) 
c g 

K - o /ir ¥ F (a/c , 1) 
a g 


(See Table C-4) 


Where the function F is given in Table C-4and accounts for the 
effect of crack shape. 


The stress intensity equations for part through cracks in varying 
geometries were constructed using the above relations, the through 
crack equations for each geometry and the following rules. 

1) The effect of the back surface on the stress intensity 
factor at the crack depth is considered for the center 
part through crack. This factor is 


i 

] 

! 

I 


I 


j 

i 

1 

i 

s 






M 


back 


0.502 
- 0.3873 


0.089 (|)- 0.2315 (y) : 
|^) 3 + 5.28 (i) 4 - 9.11 


t) 


+ 5.233 


ml 


x 1 1.109 - 9.142 
4 


+ 41 - 56 ( _ h) 2 • 8S - 55 (~2^) 3 


+ 65 


•*l-h)l 

J 


(Ref. C-7) 


For cracks coming out of holes, notches and radii, there 
is strong evidence (Ref.C-8 ) that the effect of the back 
surface effect is minimal and therefore it has not been 
included . 

2) In using those part6 of the through crack equation that 
deal with the effect of a local stress concentration (such 
as the Bowie correction factor F^) the effect of the 
6tress concentration at both the surface and depth of the 
crack is evaluated by using the leading crack position. 

The use of other positions (and therefore higher factors) 
has been shown to be an over estimate of the effect. 

3) In accounting for the affects of finite widths, the actual 
position of the portion of the crack front for which the 
stress Intensity is being evaluated 16 used in calculating 
the effect of the finite width. 

4) For an embedded flow, care is taken that the free edge of 
the notch or hole is not accounted for twice (i.e., through 
the basic ptc equation and through the through crack equations) 


C-13 


thus, it is necessary to factor out 1.122 from the 
combination of ptc and through crack equations. 

5) For the embedded flaws, the roles of F (a/c,2) and 

F (a/c,l) with respect to the stress intensity at the 
depth and surface are switched. 

6) "a" is always taken to be in the thickness direction, 
is always perpendicular to the thickness directions and 
identical to the through crack, definition of "c". 
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f CMMGN >(12,2!) ),Y( 12,24) ,TABLE( 12 , 25, 25 ) ,F I XED ,KCPF F , K APPF , 

1 PROOF X,NKT MX ,NPX (12) ,NOY( 1 ? ) ,N T AS (1 0 > , 1 PLOT , I F AI L, CUNSUM, PC YC( 2) 
COMMON A, API 2) ,AL I M ,AOl ( ? ) , C ,CB ,Cl 1M,CR 12, IP, 101, CO.CUMF, 

1 CU M fcLM,C191*D(?t 10, 1 C> ) ,DK,DKE, DXO X, FA,FC,H, INC *KCL ,KCl,Kn, 

2 KOA,KOC,KCPA,KCP.C,KhAX,CA,nC,Pl,R,RAD,kE,^vnU2) ,RPLI2), 

3 S1G,S1GLM,SIGY,«10YSI 10) ,S»»1N<A22> ,S MAX U2 2 1 ,TH, 

A UNIT(422),W,DCTMP,DFLTMP t 0XTMP f 

5 ALPWN »RL (tX, FLAG 1,1, ICPI2) , 1CK <2 > ,ICR 1 2 I , 1 DLCCK , I F 1 RST , I PRN(4 I , 
h ISTEP,*TRANS, J,KTYPF( 2) ,NC,NEO(10) ,NP,NRFT llO) f TYPF,TITL 
DIMENSION ThlC«<10),PCUMl 0>,Al()0) t CI<l0> 

DIMENSION FL(A f 3 ) ,KTYPO( 2 ) ,KTn( 3,2 ) 

DIMENSION HMIN ( *»2 2 1 , EMA X( *»?2 ) 

INTEGER ALCWM,BlPCK,FtAGl t TYPE(-22> ,CN$ TE P , T 1 TL ( 2 0) 

INTEGER HNSTEP 

INTEGER FDK2 > ,PC?I4) ,PP3<4 1 

RFAL KCL»KCl»KPL,KOA( 10 ) , Kf»C ( 10 > ♦ K CR A (1 0 ) ,K CRC ( 10 ) ,KMAX , INC 
REAL LlFF(10),KrPF.F,K APRF 
DATA PD1 /**HP A ♦‘♦HR f / 

DATA PD2 /4HA/C , a HF1 XF , hHC ,<HA / 

DATA PD3 /ah , 4HD ,4H ,ah / 

DATA FL /«H DfcF ,*HSURF ,AHBR FA, AH T RA , 4HTH ,-HACF , AMKTHP ,4ENS IT , 
1 AH ,ih , AHftJf H,*,F’If'N / 

DATA KTN /4H PT , -HTR AN , AH T,4MC - ,4HS - ,AHC - / 

DATA KFND /“H END/ 

C 

C INITIALIZATION FOR ALL PUNS 

C 

DO 10 1 = 1 ,2 
DO 10 J=1,10 
NT Afi { J ) =0 
DO 10 K = 1 ,1C 
0(I,J,K ) = 0 
10 CR (I » J , K ) =0 

' PI=3. 1415927 

DCT»P = 0. 

DFLTMP =0. 

DXTM° = 0 ♦ 

PN$TFP=-1 

NR=0 

c - 

C R FAD TITLE f CONTROL INFO FOR ALL PUNS 

C 

C NRUNS = # RUNS TO bE MADE NbU’.CK* MAX BLOCKS PER RUN 

C MBLOCK= PRINT FRre (BLOCKS) M r T r P = PRINT FRFO (STFPS) 

C 

RFAD (5,5001) (TIT L (I), 1=1,20) 

RF AD (5,500?) NfUNS ,NEL0CK , MPL UCK , MSTF.P 
IF (MRLC-CK) 30,20,30 
20 MRLOCK =N'B LOCK ♦ 1 


C 

C CFNTFP TITLF 

C 

30 DO 32 1=1, 1a 

IF (TITL( I ).E0.PD3(1 ) ) GO TO 34 
32 CONTINUE 
GO TO 100 

34 IF II.GE.i3) GO TO IOC 
Il=(13-I)/2 ♦ 1 

K = 1A-1-H 

I1*K-I1 D-l 


^inal page u 

V) 0R QUALITY 


00000010 
0 CCO0C2C 
0000003U 
COOOOOAO 
00000050 
0000OC60 
OOOOOC70 
C 00 00 C BO 
00000090 
00000 l 00 
00000110 
CC00011 1 
00000120 
0CGG0121 
00000130 
000001 *«0 
00000150 
OCOOOINO 
0C000170 
0CCCC1 fiO 
00000 190 
00000 200 
00000210 
0 COCO 220 
000G0 230 
0CCC02A0 
00000250 
00000240 
00000270 

ooooo ?ro 

00000290 
00C00300 
0000031 0 
00000320 
00000330 
000003a0 
00000250 
OOOOO 340 
00000370 
00000380 
00000390 
OOOOOaOO 
00000A10 
0000042C 
OOOOOA30 
00000440 
OOOOOA5Q 
OOOOOAftO 
OOOOO A 70 
OOOOOAgO 
OOOOO A90 
0CC005CC 
OOOOO 5 1C 
OOOOO* 5 20 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 




Nl 


36 


12*1 1-141 
DO 36 LI* 12*1 1 

L = I 1-41 ?-i 1 
J= L -K 

TIU(L )=TITL( J > 
TITL( J)=PD3(1 ) 
CONTINUF 


C 

f. 

c 

c 

c 

c 

c 

c 

c 

c 


READ CONTROL INFO FOR INDIVIDUAL RUN 


CSTRS * 
NLOAD = 
NM AT ** 
ITERTP* 
PIT * 

plot t 


STRESS MULTIPLIER 
1 FOR LOAD INPUT 
1 FOP MATERIAL INPUT 
ITERATION TYPE (OPT) 
CONVERGENCE PARAM 
0 To gIneRaTe PLOT 


N SUP * 
NGEOM * 
N PR OOF* 
ITFR * 
BLIFE * 


TO SUPPRESS RETARDATION 
FOR GEOMETRY INPUT 
FOR PROOF INPUT 
OF ITERATIONS 


DESIRED 


PCYCLES ( l)*PLOT 


LIFE 

FREO 


IN BLOCKS 
(CYCLES) (OPT) 


100 READ ( 5,5003 ) CbTRS ,N tUP , NLOAD, NGrOM,NMAT, ITCRT P, ITER ,PIT,bLlFE, 
1 NPROOF t IPLOT,PCYC( 1 ) 

IF (ITER.LT.l) GO TO 110 
IF (ITERTP. rO.C) CO TO 4C20 
IF (ITERTP. GT. A) GO TO 4020 

00 120 K = l, 10 
NR ET ( K )=NSUP*NRET (K ) 

1 TCNT=0 

IF (IPLOT.EO.O) CO TO 130 
1 PLOT *1 

IF (PCYC(l).EO.n GO 70 130 
IPL0T*2 

IF (ITER-10) 800,800,140 
I TER* 10 


110 

120 


130 

1*0 


C 

c 

c 


READ LOAD INPUT 


800 

810 


820 

830 

8*0 

650 


860 

870 

880 

800 


900 


IF (NLOAD— 1 ) 910,810,910 

RFAD (5,5 00* ) NSTFP,IR,$IGLM 

IF ( MSTEP— (ONSTFP* 1 )) 820,930,820 

IF (MSTFP) 840,830,840 

MSTFP=N$TEP4l 

DO 850 I *1 ,NSTFP 

READ (5,5005) SMAX ( I ) , SM 1N( I ) ,UNIT ( I ) ,TYPE ( I) 
IF (IR-1) 880,860,880 
DO 870 I* 1 ,NSTEP 
SMINd ) = SMIN( I)*SMAX( 1) 

IF (CSTRS) F90, Q 1 0 , P9C 
SIGLM = CSTR$*SIGIM 
DO 900 1 = 1, NS TEP 
SMIN(I )=C STRS*$MIN( I) 

SMAX( I)=CSTRS*SMAX( I) 


C 

C 

C 


READ GEOMETP Y INPUT 


910 

920 


IF (NGEOM-1 ) 1100,920,1100 

READ (5,5004) KTYPo 

READ (5,5006) W,TH,CO,AO,H,R AD 

OTH=TH 

OAO*AO 

OCD=CO 

IF (KTYPO (1 ).LT.l ) GO TO 4030 
IF (KTYPO (1 ).GT.3) GO TO 4030 
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00000590 
00000600 
0C0G0610 
00000620 
0000^*630 
000006*0 
00000660 
0C000660 
00000670 
0000061 
00000690 
00000700 
0000071 0 
00000720 
00000 730 
000007*0 
00000 750 
00000 760 
00000770 
00000780 
00007790 
00000800 
00000810 
00000820 
00000630 

ooooop*.o 

00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
0 0000910 
00000920 
0000093C 
00000940 
00000960 
000004*0 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
000010-0 
00001050 
000010 60 
0000 1070 
00001080 
00001090 
00001 100 
00001110 
00001 120 
OOOC1 130 
0000 1 140 
00001141 
00001142 
00001150 
00001160 


o o o o n 


IF (KTVPO (2 ).LT.l ) GO Tp 4060 
IF (KTYPOm .GT.17) GO TP 4G6C 
IF (KTYPO(?) .F0.7) C-0 TP 940 
IF (KTYP0I2).E0.16) GO TO 930 
IF (KTYP0I2 ) .FG.17) GO T<; 930 
GO TO 1100 

<>30 C1B1 = FONT *> ( R AP/H* W/H ) 

GO TO 1100 

READ X »Y, TABLF AR9AV$(l-6) FOR INTERPOLATION 


NKTMX = ONE HALF X ARRAY ELFMFNTS 


940 RF AD (5, 5002) M KT MX 

IF (NKTMX.LT.l) GO TO 9*0 
IF (NKT*X .LT.4) GP TP OO0 
PRO WRITF (6,60 ?4 | NKTmx 
STOP 

040 NTAPLF=6 
N1 = 1 

N2 = 2 *NKTM X 

00 1090 NT = Nl ,N? 

I F (AO.Nt.O.) G( Tp 1000 
T =MPD ( NT » 2 ) 

if u.NF.n) go ir iooo 
X ( NT , 1 )=0. 

Y(NT, l)rft. 

NOX ( NT 1 = 1 
NOY ( NT ) = 1 

TABLFINT,1, 1) = 0. 

GO TO 1090 

1000 R F AD ( 5 , 5CC9 ) X(f'T,l ),LFNP 

1 = 1 

IF (LFND.EO.KEND) GO TO lO^O 
DC 1020 1=2,25 
RFAD(5»5009) X ( NT , I ) , L r N r > 

IF (X(NT,I) .LE.X(' T,1-1 ) ) GC T Cj ,000 
1020 IF (LFND.FO.KrND) OF TP 1C3C 
GO TO <.010 
103 0 NPX (NT ) = I 

IF ( AC.NF.G. ) GP TP 1040 
V(NT»l)=C. 

Y ( NT , 2 ) =1 • 

1 = 2 

GO TP 1070 

1040 RE AO (5,5009) v(nt,1 ),LENO 
1 = 1 

IF (LENO.rfc.KfNP) rp TP 1070 
DP 1060 1=2,25 
P E AD ( 5 » 5C C9 ) V(NT,1 ) v Lr»ll) 

IF (Y(NTtl) .LE • Y ( NT ,1-1) ) GP TP 4COO 
1060 IF ( LEND. EO.K END) GC TO 1070 
GO Tp 4010 
1070 NPY ( NT ) = I 
I1=N0X(MT ) 

I 2=NPY (NT ) 

rn loeo 1=1,1 1 

READ! 5,5008) ( T Af»L E (NT ,1,13) , 13=1,1?) 
IF (AC.NE.O.) GC Tp 1080 
T APL F ( NT ,1,2) = TAP, LE (NT, 1,1) 


' • - • -XL. . < . • 
h - '>0R Qt \-X : ! 


00001170 
0CC01 18G 
00001190 
00001200 
00001210 
00CC1 220 
00001230 
0CG012'»0 
0000125-0 
00001260 
00001270 
00001280 
00001 ?F>0 
000C1300 
OPOO 1310 
00001320 
00001 330 
00001340 
00001350 
00001360 
00001 37C 
00001330 

0 0001390 
0000T4C0 
00001410 
00001420 
00001470 
0C0O1440 
00001450 
0P00I46C 
00001470 
00001460 
00001490 
00001 ,5 00 
00001510 
00C01520 
0000 15 70 
00001540 
00001550 
00001560 
00001570 
OOOC15CO 
00001585 
00001500 

00001 too 
00001610 
00001 620 
0C001630 
00C01640 
00001650 
0 OOP 1660 
00001670 
00001 680 
00C01690 
00001700 
00001710 
00001720 
00001770 
00O0J731 
0000177? 
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ooo o o p> . t j o o o « n o o o ; o 


1080 CONTINUE 
1090 CONTINUE 

frET F~ MATER lT£ INPUT 

100 IF INMAT-1) 1490,1110,1490 
110 READ 15,5002) NJ 
NTABLE*6 

DO 1450~jf=l,NJ 

NTAB ( J ) =0 

READ 15,5007) SIGYSfJ),NEO(J),NRET(J) ,NDUP, 

1 KCRCIJ ),K0C( Jj.KCRAC J»,K0AI J) 

NRETI J)=NSUP*NRET| J ) 

TE~ TNFOI J 1.NF.4T GO TO 1240 

READ X,Y, TABLE ARRAYS(7-12) FOR NE0(J)*4 f J<4 


NTABLE=NT ABLF+1 " 

IF (NTABIE.GT.12) GO TO 1340 
NTABI J)=NTAPLF " 

IF (J.GT.3) GO TP 1240 
N1=NTAR( J ) 

N2=N1*1 

DO 1230 NT *Nl , N? 

IF (NDUP.FO.l) GO TO 1K0 
I *MOD(NT,?T~ 

IF (I.NF.O) GO TO 1140 
I *NT— 1 

NOX I NT ) = NOX 1 1 ) 

NCYINT )=N0Y(1) 

I1=NDX(I ) 

j 2=NPY I I ) 

DO 1120 13=1,12 
1120 Y(NT,I3)=Y| 1,13) 

DO 1130 13=1,11 
X(NT,I3)=X(1,I3) 

DO 1130 14*1,12 

1130 T ABLF I NT, 13, 14 ) = T ABIE 11,13,14) 

GO TO 123 0 

REAP X ARRAY 

1140 READ I 5, 500° ) X(NT,1),IEND 
' 1 = 1 

IF (LEND, EQ.K END) GO TP 1170 
DO 1160 1=2,25 
RE AD I 5 ,5009 ) X ( NT , I ) , L END 
IF (X(NT,I) .LE.X(NT,I-1>) GO TO 4000 
1160 IF (LEND. EO.K END ) GP TP 1170 
GO TP 4010 
1170 NOX I NT )= I 


READ Y ARRAY 

RE AD ( 5 ,5009 ) Y(NT ,1 ),LEND 
1*1 

IF ( LEND. EO.KEND ) GP TO 1200 
DO 1190 1=2,25 


00001 733 
000017*0 
00001750 
00001760 
00001770 
0000 l 760 
00001790 
00001 BOO 
00001810 
00001 820 
00001 P30 
00001840 

0 000 IB 50 
00001 86C 
00001670 
00001880 
00001890 
00001900 
00001910 
00001920 
00001930 
00001940 
000C1950 
00001960 
00001 970 

00001 960 
00001990 
00002000 
00002010 
00002020 
00002030 
000020*0 
00002050 
00002060 
0000 2070 
00002080 
0 000 2 C °0 
00002100 
00002110 
00002120 
00002130 
000021*0 
00002150 
00002160 
00002170 
00002180 
0000? 1 VO 
00002200 
00002210 
00002220 
00002230 

00002 2*0 
0C002250 
00002260 
00002270 
00002280 
00002290 
00002300 
0000231 0 
00002320 


o o o t o o o 


\ 


1 



r 

I 

i 


— 




R t AD ( 5 » c 009 ) YINT * I ) f LEND 
IF (Y(NT,I).LE.Y(NT f I-l)> G 0 10 4000 
1)90 IF ( LEND. EO.K END GO TO 1200 
GC TO 4010 
1200 NCY( NT )= I 
1 1 =NCX (NT ) 

I2=NPY I NT ) 

00 1210 1=1*11 

1210 READ(5, *5008) ( T AR L E (NT* I * 1 3 ) * 13=1,12) 

I 3=I\*C Y( NT ) 

12=1341 
NOY ( NT ) = 12 
YINT, 121*1. 

DO 1220 1=1,11 

122 0 TABLF(NT,I,12) = TA e LFIM,l,I3 1 
1230 CPNTINUI 

NTA8lF=NTABLF4l 
GC TO 1340 

RFAD D AFRAV FOP NOT = 4 

1240 DO 1250 1=1, 1C 
P(1»1»J)=0 
1250 D 12 , I , J 1=0 

DO 1200 1=1,10 
PFAD ( 5 , 500 Y ) 0(1, T,J) , L r N0 
1240 IF (LFND.CQ.KfNt ) GD TO 1270 
GC TO 4070 

1270 IP (\’D1"»-l) 1200, 1300, 1 ?P0 
1260 DO 12^0 1=1, lo 
1200 r(2,I,J)=C(l,I,J) 

GO TO 1340 
13C0 DP 1310 1=1 , 10 

PFAD (5,5009) 0(2,1 , J 1*LFN0 
1310 IF (LEND. tO. KENT) GD TP 1340 
GO T C 4070 

1340 IF (NRFT(J)) 1360,1450,1360 
1350 DC 1340 1=1,10 
CR ( 1 , 1 »J )=0 
1360 CP(?,I,J)=0 

Of 1370 1=1,10 
PEAD (5,5009) CR( 1 , I, J) ,l r ND 
137 0 IF ( LEND. FO.K END) GP 10 1330 
GO Tn 4070 

1 3F0 IF (NDUP-ll 13«0, 1-, 10,1300 
13°0 DO 1400 1=1,10 
1*00 CR(?,1,J)*C»(1,1, J) 

GO TP 1450 
1410 DP 14 ? 0 1=1, If 

PFAD (5,5009) CR ( 2 , 1 , J) ,LTND 
1-20 IF (LFND.FO.KLND) G( TO 1^50 
GO TO 407C 
14 c 0 GONTIMIt 

R F AD PRPPF INPUT DATA 

144C IF (NPPOPF. f 0.0) CO TO 15C0 

»r AD (5, 50 10) FIXFL,KCPRP ,KA P9 E » XLOW,XtlP ,PPOPFX , TEND 
C 

C INCREMENT RUN « r vrRIFY COMPLETE input 

D-5 


00002330 
00002340 
00002350 
00002360 
00002370 
00002360 
00002 390 
00002400 
0 000 24 1C 
0CCO2420 
00002430 
00002 440 
00002*»5C 
00002^60 
00002 470 
00002460 
00002490 
00002500 
00002510 
00002520 
0OC025 3O 
QC0C2540 
00002550 
00002560 
00002570 
00002560 
00002550 
0CC0260C 
0 ° OJ ? 61P 
00002620 
000u2630 
0C0C2640 
00002650 
00002660 
00002670 
00002690 
00002690 
000P2700 
00002710 
C 0002 720 
00002730 
00002 740 
000O275O 
0C00276C 
00002770 
000027PC 
0000?7°0 
00O02PO0 
00002810 
00CD2620 
00002*30 
0CC02840 
00002Rf 0 
00002860 
00002P70 
0C002 PRO 
00C02690 
0CC029C0 
00002910 
00002920 


r> o o r> r> o or>n 



c 

'1500 NR = NR ♦ l 

IF (NR-11 1*10,1*10,1530 
"151 0 I =NLP AD+NGFOM+NMAT " 

IF (1-31 *050,1520,4050 
1520 OCSTRS=CSTR S 
ONSTEP=NSTEP 
GO TO 162 0 

1530 IF (NLOAD-11 1 5*0, 1 520, 1 540 
15*0 IF (HCST ,-Ci.TP.S) 1550,1620,1550 
1550 IF (PCSTRSI 1580,1560,1580 
1560 00 1570 I =1 , ON STEP 

SMINI1 JsSMlMl )*C STRS 
1570 SMAX( I)=SMAX( I)*C$TRS 
S1GLM = C SI RS*S 1GLM 
OCSTRS'sCSTRS 
GO TO 1620 

1580 DO 15*0 I=l,CNSTFP 

SMINC1 »*SMIM Il/OCSTRS 
15*0 SPAX( I )=SMAXl Il/OCSTRS 
SIGLM * S1GLM/0CSTRS 
“ ~OCSTRS=CSTRh 

IF (CSTRS 1 1600,1620,1600 
1600 00 1610 I =1 ,PNST6 P 

SMIN(I IcSMlNd )*C STRS 
1610 SMAX(I)=SMAXI I1*CSTRS 
SIGIH » cstrs*siglm 
T 670 HNSTFP=NSTFF 
MSIGLH=SIGLM 
HCSTRS=CSTRS 
DO 1622 I=l,HNSTFP 
HMINII » = SMIN( I I 
1622 HMA X ( I > = S KA X « I ) 

'1625 IF (IPLOT.NF.il GO TO 1630 
K*NbLOCK/MOLOCK 
IF (K.Ef'.O) GO TO *040 
K = NSTEP/MSTFP 
IF (K.EQ.01 GO TO *040 

DISPLAY ALL INPUT FOR EACH ITERATION CF EACH RUN 

1630 WRITE ( 6,8002) NR , NRUN $*T ITL 

DISPLAY LOAD INPUT 

WRITF(6, 80031 CSTRS, SIGLM 

BCYCLE*0. 

DO 1640 Jl=l,NSTFP 
BCYCLE = BCYCLE ♦ UNITfJi) 

1640 WR ITF ( 6,800*) Jl, SMAX ( J1 ) ,SMIN( Jl 1 ,IINITI J1 1 ,TYPE( J1 ) 


00002930 
OOOC2 C> **0 
00002950 
00002960 
00002970 
00002980 
00002990 
00003 000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
0000 3070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130 
00003140 
00003150 
00003160 
00003170 
000031FO 
00003190 
00003191 
0000319? 
00003193 
00003194 
00003195 
00003196 
00003200 
00003210 
00003220 
00003 230 
000032*0 
00003 250 
00003260 
0000 3270 
00003280 
00003290 
00003300 
00003310 
00003320 
00003330 
000033*0 
00003350 
00003360 
00003370 


DISPLAY GtOMETRY INPUT 


WR I IE (6, 80051 KTN( KTYPO < 11,11,KTN( KTYPO (11,21 ,KTYPG(2 1 *W,H, RAO, TH 

IF (KTYPO (1 1-31 1660,1650,1660 

WR I TE ( 6, 800 ?) CO 

GO TO 1665 

WRITE(6, 80061 AO 

WR1TE(6, 80071 CO 

IF (KTYPO (2 1.NE.7 1 GO TO 1750 n , 



r> o o one* ooo 



N 1=?*NKTMX 
0C» 1740 NT=1,N1 
1 1*MPD (NT t? > 

IF (I1.F0.0) GP TO 1670 
WFITC(6.6014) NT 
GO TO 1680 

1670 WRI TE ( 6,8017) NT 
16«0 CONTINUE 

I?=N?V(MT ) 

I1=NPX(NT) 

Jl = l 
J2=8 

1690 IF ( J2-I2 1 1710,1710,1700 
1700 J 2= I ? 

1710 WPITF (6,801 5) (VINT, 13), I3=J1,J2) 

PC 1720 1=1,11 

1720 WF ITF( 6,8016) X IN 1 , I) , IT A6L E ( NT , I f V - | , I3=J1,J2) 

IF (I2-J?) 1730,1740,1730 
1730 Jl = Jl<>8 
J2= J2+8 
fr TO 1690 
1740 CONTINUE 

DISPLAY MATERIAL INPUT 

1 75 0 W F.l TF ( o, 800P ) 

DO 1760 J 1= 1 , N J 

WRITr (6 , r *00 r ) Jit SIP'S ( J1 ),NFG( J1 ) ,NR FT ( J1 ) ,KCRC ( J1 ) ,KOC C J1 ) , 
1 KORA ( J1 ) ,K C A ( J) ) 

1760 CONTINUE 

DISPLAY D C CR ARRAYS IP ANY 
K =0 

DO 1840 Jl=l , NJ 
IF (NFOf Jl) .M.- ) f-r. TO 1770 
IF ( Jl .07 .3 ) 00 TC 1770 
00 TO 1840 

1770 IF (K.OT.O) (C Tr 1780 
K = K*1 

WRITE (6,eCl C ) 

1780 DP ie30 J2= 1 , 10 

IF (D(1,J?,J) ) ) 1 820,1740,1820 
1790 IF (P (2 » J2, Jl ) ) 1P20,ieO0,lP20 
1600 IF (CR( 1,J2,J1) ) 1820, 18 1C, 1820 

1810 IF CC«M ?,J2,J1) ) 1 8 20 , 1 F 30 , 1F?0 
1«20 WRITE (6,801 1 ) J2 , J 1 «D ( 1 , J2, J 1 ) , C ( 2 , J2 * J 1 ) , 

1 CR(1,J2,J1 ),CF. (2 , J2,J1 ) 

18 3 0 CP NT I NU F 
1840 COMTINltr 

DISPLAY TARLFS 7-1? IF ANY 

DO 1910 J= 1 ,N J 
IF (NEO( J ).NE .4 ) Or TC 1910 
IP (J.GT.3) OP to I r 10 
N1*MTAR( Jl 
N2=Nl4l 

DO 1°0C NT=N1,N2 
WR1TP(6,8014) J ,NT 



00003470 
00007480 
00003490 
00003500 
0G00351 0 
00003 52 0 
0OCC3530 
00003540 
00003550 
OCOC3560 
00003570 
00003560 
000G359C 
00003600 
00003610 
00CC3620 
00003630 
0CG03640 
00003650 
00003 660 
00003670 
00003 680 
00003690 
00003700 
00003T10 
00003720 
00003730 
OC003740 
0C003750 
orco >760 
00003770 
00003780 
0000 3 790 
00003600 
00003810 
00003F20 
00003P30 
00003840 
0C003860 
00003860 

00003 870 
00003880 
000D3P90 
00003800 
0 COO 74 10 
00007920 
00007430 
00003840 
00007 8* 0 
00003960 
Of 00 7 4 70 
00003960 
00007980 
00004000 
00004010 
00004020 
0 000^030 
0000^040 
0CCC406O 

00004 060 
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no o 
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1 2=N0Y I NT ) 

11=NPX(NT > 

Jl=l 

J2*n 

IF IJ2-I 2) 1870, 1870, I860 
J2*I2 

WRITE 16,8020) |V|NT,I3), I3*J1,J2) 

DO 1880 1=1, 11 

WR 1 1616,8021) XI NT, I), (TABLE! NT ,1,13), 

IF ( I2-J2 ) 1890,1900,1890 

Jl=Jl*8 

J2=J2*8 


I3=J 1 , J2 ) 


00004070 
00004080 
00004 0«-0 
00004100 
00004110 
00004120 
00004)30 
00004140 
OOOOhISO 
00004 160 
00004170 
000041MC 


GO TO 1850 
1900 CONTINUE 
1910 CONTINUE ___ _ 

C DISPLAY PROOF INPUT IF ANY 

c 

IF INPROOF ) 1940,1940,1920 
T920 N1=NPR00F*1 

NUM00IN1 ,2)41 
— TF TIFND.GT.O) TO TO 1930 

I END« 100 

1930 WRTTEC 6,8018) NFR OOF , PDl (N1 ) «XLOW, PROOFX ,PD l l*'i 1 , XUP,KCPRE, 
1 P02INPROOF),PO3( NPROOF) ,FIXfcD,KAPRF,IENO 
1940 IF (ITFP) 1960,1960,1950 
1550 K=ITCNT*1 


00004150 
00004200 
00004210 
0000^220 
00004230 
00004240 
00004250 
00004260 
00004270 
00004280 
00004290 
00004300 
00004 310 
00004320 
0000433G 


WPITFI6, 8012) BLIFF,PIT,K,ITERTP 
I960 CONTINUE 

INITIALIZATION FOR EACH RUN 

ICKI1)=0 
ICK(2)=2C 
IC0C1 >*0 
ICO I 2 ) *20 
ICR 1 1 ) *0 
ICR (2)*20 
INC*. 01 
I NG =0 
BLOCK * 1 
1=1 

ITR ANS=0 
IPRNI 1 )=-l 
IPPNI2)*-! 

1PRN(3)=-1 
I PRNI 6 ) =24NSTEP 
FLAG 1^0 
CUME*0 

KTYPFI 1 )=KTVPC( 1 ) 

KTYPEI 2)=KTYP0(2) 

PCYCI2)*PCYCm 
I F A I L=0 
CUM SUM *0. 

IF INPROOF) 1980,1980,1970 
1970 CALL PROOF! AO,CO,XLOW,XUP, I END, NPROOF) 
1980 CONTINUt 
C=CO 
A = AO 


00004340 
0C004 350 
00004360 
00004370 
00004380 
0000«, 390 
00004400 
00004410 
00004420 
00004430 
00004440 
0000*.45C 
0CG04460 
000C4470 
00004480 
00004490 
00004500 
00004510 
00C04520 
00004530 
000045* 0 
00004550 
00004560 
00004570 
00004 500 
00C04590 
00004 600 
00004610 
00004620 
00004630 
00004640 
0000466C 
00004660 


ooo ooo ooo ooo 


20C0 

2010 

2020 


2030 


20*0 


20 PO 


2100 


2200 


2210 


2230 
? 2**0 
2250 
22 6 0 
2270 
22 PO 
2290 


2300 


C 

c 


nr=c 

apci )=co 

AP(2)=AC 

RYPLfl 1 = 0 

ALPNN=0 

RY 0 U 2)=0 

KOL=0 

KCI=0 

K C 1 = 0 

WRITE TITLE, ACYClES/eLCCK, C F l p S T DATA POINT IF PLOT WANT f 0 

IF IIPLOT.EO.C) Of TO 2000 

W* I TE ( 7 ,7010) UITLdll* 11=1,15), BCYCLF 

WRITE (7, 7000) A f C,CUMSU" 

BEGINNING OF F ACH SIFT, f A CH BLOCK 

IF (MODfBLOCK .MBLPCK) ) 2050,2010,2050 
IF (MODU.WfTEP) ) 20*0,2020,2050 
00 2040 K = 1 *3 

IF (IPPNIK )-IP»fH 4) ) 20*0,2030,20*0 ' 

I PRN ( K ) =1 PRN( K )-? 

CPNT IN HE 

IF I1TRANS-1) 2070,20*0,2070 
CALL TRANE 
GO TO 2100 
KT=KTYPF( 1 ) 

or, TO 12090,20*0, 2080) , KT 
CALL TCGRPW 
GP TP 2 IOC 
CALL PTCCRW 

HAS THE RUN F NO r P 7 


MPRF =0 

IF ( ICR f 1 > ♦ 1 > 2310 , 2310,2200 

ctmr = o 

!*!♦! 


IS THIS THE LAST step PF this blpck? 

IF (1-NSTEP) 2000,2000,2210 
BLPCK=FLPCK+1 

IF (KTYPE ID.GT.l ) CC TP 2230 
IF IA-PA12300, 2230, 2300 
IF IC-CC) 23*10*2240,2300 
IF nriTMP-l.r-PI 225C,230O, 23C0 
IF (OXTRP-l.F-S) 22*^,2300,2300 
TF (TTRANS-1) 227C , 22F0 ,2270 
IF KTYPF ID.GT. 1 ) GP TP 2290 

IF (PCThP-l.E- 6 ) 22 90 , 2700,2300 ORIGINAL PAG K I: 
W R I T FI * , * C 20 ) pg p 00R q UALITY 

IriG= I 

GP TP 2310 
CA= A 
PC = C 

1=1 

IS TOIS THF LAST BLPCK PF THIS RUN? 

D-9 


0000**70 
0 OOO *, 6^0 
0000**50 
00C0*7C0 
0000*710 
0000*720 
0000* 7^0 
000047*0 
0000*750 
00CC476C 
0000*770 
0000* 7B0 
0000*750 
000C*»8C0 
0C0C4F 10 
0000*020 
00 C 0* F ?0 
000048*0 
0000*P C 0 
OCCO* F*0 
0 000**P 70 
OCCO* BOO 
0C004F50 
0000*900 
0000*910 
00CC*»92 0 
0000*930 
0000*5*0 
0000*950 
0000*5*0 
0000*970 
OrOO*9FG 
0000*590 
00005 COO 
00005010 
0000*020 
000C5030 
000050**C 
00005050 
00005060 
00005 070 
000050BO 
00005C90 
00005100 
000C511C 
00005 1 ?0 
00005130 
000051*0 
00005150 
0000* W O 
00005170 
00005 IPO 
0000* 190 
00005?00 
0000 * 210 
0 000522 0 
00005 230 
00005 2*0 
000052*0 
00005 2*0 


o o o o rv o 


IF (BLOCK -NBLOCK ) 2000, 2000 , 2310 

~ "ARE THERE ITERATIONS?' 

2310 IF C IT EM 3COO, 3000,2320 

ITERATION CALCULATIONS 

2320 ITCNT^ncNT*l 

THICK! I (CNT» = TH 
A I ( ITCNT ) = AO 
Cl (IT CNT ) =C 0 

LIFE! ITCNT > *FIC*T (BLOCK-1 I^FLOAK I )/FLOAT(NSTEP) 

LIFE! ITCNT )=L IFF ( ITCNT)- I (UNIT! I )-CUME)/UNI TII ) )/FLOAT(NSTEP) 

PCTIF ( ITCNT )=ITFE (ITCNT)*100./BLIFE * " 

IF (LIFE! ITCNT ) • EQ • f, ) GO TO 2435 
DIF=PCTLF (ITCNT 1/100. 

IF (D1F-.99) 2340,2340,2330 
'2330 IF (DIF-1.09) 2440,2340,2340 
2340 IF (ITCNT -I TFR ) 2350,2440,2440 
'2350 MORE* I 

IF IITERTP.GT.I) GO TO 2400 
DIF=(BLTFF/L1FF( ITCNT ))**(l. /PIT) 

th=th*dif 

IF(CSTRS) 2380,2340,2300 
2340 CSTRS*l./DIF 

DO 2370 K = 1,DNSTEP 
SMIN(K )=SMIN(K )*CSTRS 
2370 SMAX(K )*SMAX(K)»CSTRS 
siglm*siglm*cstrs 
OCSTRS=CSTRS 
GO TO 3000 
2300 CSTRS*CSTR5/DIF 

DO 2390 K = 1 ,PNSTE P 
SMIN(K )*SMlN(K)/rcSTRS*CSTRS 
2390 SMAX(K )=SMAX(K )/OC STRS*C STRS 
$IGLM*S1GLM/0CSTRS*C$TR$ 

OCSTR$*CSTRS 
GO TO 3000 

2400 DIF=(LIFE (ITCNT )/BL I FE)*«(2./( PIT-2,)) 

GO TO (2350,2410,2420,2430) , ITFRTP 
2410 CO=CO*DIF 

GO TO 3000 * 

2420 AO=AO*DIF 

GO TO 3000 ' ‘ 

2430 AOOVCO* AO /C 0 
CO*CO*OIF 
A 0= AOOVCO*CO 
GC TO 3000 
2435 WP I T E ( 6,6160) 

MCRF*0 

2440 WR I TE ( 6,6021 ) 

DO 2450 K*i, ITCNT 

2450 WRITE ( 6,6022 ) THICK (K ) , A I (K ) ,CI (K ) ,L IFE 1 K ) , PCTLF I K ) 

CSTRS=HCSTRS 
NSTFPsHNSTEP 
SIGLM=H£1 CLM 
DC 24 55 I*1,NSTEP 

SMIN( I )=HMIN( I) _ 


00005 270 
00005 280 
00005 290 
00005300 
00005310 
00005320 
00005310 
00005340 
00005 350 
00005360 
00005370 
00005380 
00005390 
00005*00 
00005410 
00005420 
O0CO543O 
00005440 
0000*450 
00009460 
00005470 
00005480 
00005490 
00005500 
00005510 
00005520 
00005530 
000055*0 
00C05550 
00005560 
00005570 
00005560 
00005590 
000056G0 
00005610 
00005 620 
00005 630 
00005640 
0C005650 
00005660 
0 0005 67C 
00005660 
00005 690 
00Go57o0 
00005710 
00005720 
OCu- ) 
000057*0 
00005 750 
00005 7o0 
00005770 
00005700 
OC005790 
00005600 
00005810 
00005611 
00005812 
00005613 
0000581* 
00005615 


, r- 

I 

* 

N. 


T 



1 


T 

I 


T 

j 



?4S 5 SMAX( I)=HWAX ( I) 

TH*OTH 

co=rco 

AO=OAO 

If IING-I) 3000,2460,3000 
2460 WRITE (6,B013) 

C 

C WRIT* FINAL PATA F PR PLOT IF ANY 

C 

?crc if iiplpt.eu.o) or tc 304 c 

WR ITE <7,7000) A,C,Cl'*$UM 
WRITE (7,7020) 

IF (IFAIL.GT.2) GC TO 3015 
IF (IFAIL.GT.G) GP TP 3C1C 
WRITf (7,7030) 

GO TO 3C20 

7 010 WHITE (7,7040) FL ( I f A 1 1 , 1 ) ,F L ( IF A I L ,2 > ,B LOCK , I ,C»»M E,C(JM «UM 

GO TO 3020 

3015 WR ITE (7,7070) ( FL ( I F A IL , II ) , II =1 , 3) , BLOCK , I ,CUMF ,CU*SUW 

7020 IF (TTFR.rO. 0) GO TP 3030 

WRITE (7,7050 THICK( 1 TCNT ) , A 1 1 1TCNT ) , Cl (11CNT ) 

GO TC 3 04 0 
3030 WRITE ( 7,7060) 

C 

C IS THIS THE LAST RUN? 

C 

3040 IF ( MORE • EO. 1 ) GP TO 1635 

IF (NP.-NRINS) ?05 C , 3 OC »0 , 7090 
7050 IF (ICR(lMl) 3060,100,3060 
30oO IF (FLAG!) 100*100.3 070 
3C70 WRI TF ( 6, 601*0 IOL CCK , 1 ST F P,C OWE LM 
GP TO 100 
39*0 STOP 

40P0 WRITE (6,6100) 

STOP 

4010 WR ITE (6,611o) 

STOP 

4020 WT I TF ( 6 , 61 20 ) ITFRTP 
STOP 

4030 WRITE (6,6130) KTYPO(l) 

STOP 

4040 WRITF ( 6,6150) 

STOP 

*•050 WR I T F ( 6, 6001 ) 

STOP 

4060 WRITFf 6,6130) KTYP0(2) 

STOP 

*.070 WRITE ( 6,61 hO ) 

STOP 

50P1 FOR HA T ( 20A4 ) 

50C 2 FORMAT ( 14,16,21**) 

5 003 FPRMAT(EIO.O,6I4,7E1P.C,2T4,E1P.O) 

5004 FPRRAT (214, *10, r) 

5005 FOR MAT (3E 10.0,1**) 

5006 FORMAT ( 6F 10.0 ) 

5007 FPRM AT (FI 0. 0,31 4, *tT10 . 0 1 
5f0fl F OR MA T ( feL 10.0) 

5009 F0RMAT(F10.0,66X, A4) 

5010 FORMAT (6E10. 0,14) 

oOuT FORMAT( 34H1 INCOMP L CTE INPUT SET, JOB ABENOEO) 

D-ll 


0OG05M6 
00005 620 
00005821 
00005P22 
00005*30 
0000*8*0 
00005850 
00C0566C 
00005870 
00005880 
000C5F90 
00005900 
00005910 
00005420 
00005930 
00005640 
00005450 
00005960 

00005 970 
0C0O59PC 
00005490 
00C06000 
0000601C 
00006020 
00006030 
OOt'OAO^O 
00006060 
00006060 
OCGOftO'/r 
00006080 
0 00060 40 
00006100 

00006 1 10 
0CCC6120 
0000c 130 
00006140 
00006150 
00006 160 
00006170 
000C61 80 
00006)90 
00006200 
00006210 
0CG0622C 
000062 ’0 
000062*0 
000Co2! 0 
00006260 
00006270 
000062P0 
0 0006240 
0C0063O0 
000^*6 3)0 
00006320 
00006330 
00006340 
00006 350 
0 COO 6 3 6.0 
0000C370 
00006380 


— r 1 

• 

Nl 

1 \ 


T 




OCCURS IN 
CYCLES) 


THE ,16, 7H BL"CK * 


,//49X , 
A,llX,lHC,9X, 


6C24 
6100 
6110 
M 20 
6130 
61h0 

6150 


ORDER I 


ITLRTP 
KTVPF I 
CR ) 


14) 


14) 


OF DATA POINTS 
7 FRO */lH , 


NOT DEFINED) 


7010 

7020 

7030 

7040 


6019 FORMAT I35M0LIK:T LOAD FRACTURE 

1 14.12H STFP AFTER ,)PF12.3,7H 

6020 FORMAT ( lOHONO GROWTH ) 

‘6021 FORMAT (2bHl “ ’ITERATION RESULTS 

1 1THPERCFNT 0F,/20H THICKNESS 

2 20HLIFE REQUIRED LIFE,//) 

6022 FORMAT ! IP*»EI?.3,0PF9.2 ) 

FORMATIlHO, 10HNKTMX OUT OF RANGE) 

FORMAT (IH0,35HX OR Y INPUT NOT IN ASCENDING 
FORMA i UHO, INHMORt THAN 25 X OR V) 

FORMAT ! I HO, • INCORRECT VALUE FOR 
FORMATUHO, 'INCORRECT VALUE FOR 
FORMAT ! IHO, 20HMCRE THAN 10 0 OR 
FORMAT ! 1 HO, 

1 55HPLOT REOUESTED BUT FREQUENCY 
6160 FCRMAT(1H0,?3HCALCULATED LIFE IS 
1 27HITERATI0NS CAN NOT PROCEED > 

7000 F0RMAT(4HDATA,1P3F12.3) 

FORMAT <4MTITL,4X, 1 5 A4 t IPF 12 . 3 ) 

FORMAT (mHHOPS) 

FORMA T I <*HHD P 1 « /4HH0R2 ,/4HHDR 3 ) 

FORMAT ( »*HHDR1 ,5X , 1 4HCRI T ICAL K AT ,2A4,8HfcXCE EDFD ,/4HHDR2, 16, 

1 6H BLOCK, 15, 5H 5 T E P, 1 PF 10. 3 ,6H C VCLE , /4HH0R3 ,e X , 

2 14HT0TAL CVCIE5. =,P10.3) 

7050 FORMA r ( *«HHDK*» , 1 IX * 1 1MTH1 CKNE SS - t 1PE 1 0.3 , /**HMDR 5 , 18X, 4H AO * , 

1 F 10,3 ,/4HHDR6, 1 8 X,*»HCC *=,F10.3) 

7060 FORMAT ( 4HHDR*»/4HH0R5 ,/4HHDR 6 ) 

7070 F0RMAT(4HHDRI,3X,2KHFRACTURE OCCURRED DURING ,3 A4 ,/4HHD R2, 1 6, 

1 6H BLOCK, I5,5H S^F P, 1 PE10. 3 , 6H CYCLE , /4HHDR3 *B X * 

2 14HT0TAL CYCLES =,F1C,3) 

8002 FORMAT! <»H 1RUN , I *« , 3h 0F,I4,5H RUNS , 10X ,20A4,/16H0L0AD INPUT OA TA ) 
A003 F0RMAT(1H-,5X,\5HSTRESS FACTOR ,1PF12.3,/1H ,5X, 

115HLIMIT STRESS , E 12. 3 ,/lHO, 5 X, 

262HSTEP max STRESS MIN STRESS UNITSIC YCLES) MATERIAL 

3// ) 

8004 FORMAT! 1H , -.X , 14 t ?X , 1 PF 12,3 , E 13 .3 , 2X , El 2.3, 0X , I 4) 

8005 F0RMAT!1H-,19HGF0METR V INPUT DATA ,/ 1H0, 5X , 20HCR AC K TYPE 

l 2A4,I4,/1H ,5X,2CHWIDTH ,1PE12.3, 

2/lH ,5X,?0HAnDITI ON AL DIMFN SION , E I 2.3 , 

3/1H » 5 X*20H RAD I US/NOTCH DEPTH ,E)2.3, 

4/1H , 5X ,2 CHTH ICKNES S ,E12.3) 

R0G6 FORMAT ( 1H ,5X,20HCRACK DEPTH ,1«>E12.3) 

8007 FORMAT !1H ,5X,20HHALF CRACK LENGTH .1PE12.3) 

BOOR FORMAT! 1H-, 19HMATLR 1AL INPUT DATA ,/ IHO, 5RX , 6HCR 1 TIC AL , 1 OX , 
l 9HTHRESH0LD,9X,BE!CRITICAL, 10X,9HTHRESH!HD,/1H ,5X, 

256HMATFRIAL YIELD GROWTH RETA ROAT ION STRCSS , 

363H1N TENS IT Y STRESS INTENSITY STRFSS INTENSITY STRESS 
4,/IH , 7X , 42E‘T YPF STRENGTH EQUATION M00EL,9X, 

59H( SURFACE ) ,9X,9H( SURFACE ) , 1 OX , 7H ! DEP TH) , 1 1 X, TH(DEPTH) ,/) 

B009 FORMAT! Ih , 6X , I , 4X , l PF 12 . 3 , 5X , 14 , 8X , 14 ,8X, El 2. 3, 3 1 6X , El 2.3 ) ) 

B010 FORMAT ! IHO, 21X, 14H , 1BHEQUATI0N CONSTANTS, 

1 1 4H ,/lH , 37H CONSTANT MATERIAL CRACK GROWTH 

22BHRATE RETARDATION MODEL, /)H ,17H NUMBER TYPF,6X, 

3 4 2H SURF AC F DEPTH SURFACE DEPTH) 

8011 FOR MAT ! 1H ,2X,1*»,6X,I<«,3X,1P4E12.3) 

8012 FORMAT! IH-, 20HITE R AT ION PAR AMETFR S ,/lHO, 5X , 

1 20HDESIGN LIFE ,IPE12.3,/IH ,5X, 

2 20HCCNVE RGENCE EXPONENT, E12. 3, /1H ,5X, 

3 20HITERATI0N NUMBER ,8X,I4,/1H ,5X, 

4 20HITFPATION TYPE ,8X,I4) 


00006390 
0000640C 
00006410 
00006420 
00006430 
00006440 
00006450 
0000646C 
0000647C 
00006480 
00006490 
00006500 
00006510 
0 00065 20 
00006530 
00006540 
00006580 
00006560 
00006570 
000065B0 
00006590 
00006600 
00006610 
00006620 
00006630 
00006 6*0 
000066 ?>0 
0 0006660 
00006670 
00006680 
00006690 
00006700 
00006710 
TYPE ,00006720 
00006730 
000067*0 
,0G006750 
00006760 
00006770 
000067PO 
00006790 
00006BCG 
00006E 10 
00006820 
00006R30 
D0006P*O 
IN TENS ITY00006F50 
00006860 


00006870 

0C006PP0 

00006890 

00006900 

00006910 

00006920 

00006920 

000069-0 

000069*0 

00006860 

00006970 

0C0069P0 
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><01-* Ff.RWAHlH-.lOHITEPATirtNS STOPPFn f /lH , 

1 33 HL AST PERCfcNTAGE LIFE IS INCLRRfCT, 

? /1H ,2?WNO GROWTH HAS CCCUMRFO) 

FftlA FPRt-AT IlHC, 10H TABLE ,I4,M RF T A CM 
P015 FCRMATI1H0,12X,*.H As ,7 !1PF11.3,4A ),F11.3) 

FOlb FORMAT ( 1H ,2HCstlPFlC.3,8FlS.3) 

FO 17 FORMAT C 1HO, 10H TABLE *l4 f »: RE I A AM 

(;018 FORMAT ( IH-, 16HPROOF INPUT D AT A , /I HO,5X ♦ 10HPRC0F TYPr,9X,l4, 

1 7X,AHLOWE t AA,lPF12.3*/lH , 5X .5HPR0PF ,6X ,f 1 2. 3 ,7X ,4MUPP l » A4 , 

2 F12.3./1H *5X,11HKC PROOF ,F 12 .3,7X ,2A- t f 12. 3,/1 H # 5X, 

3 11MKA PROOF ,E 12.3, 7X,16P1TEPA1 JON LIMIT ,141 
FC19 FORMAT MHC,5X,13HMATCRIAL TYPr 1 1 *♦ , 5X , 5 HT ARL f * 1 4 ) 

8020 FORMAT (1HG» 1**X,-*H REs ,7f 1PF 1 1 . 3 ,4> ) , E 1 1 .3) 

t'02I FfHHATMH ,4HDKF* ,IPF10.3,8F15.3) 

LND 


0CCG6V4C 
00007000 
000070T 0 
00007020 
C0007C30 
000070^0 
00007050 
00007060 
00007070 
0000 70 HO 
00007090 
000071CC 
0CCC711C 
0000^120 
00007130 





► 

— — 

r 


i 

X 


' 



i 


SUBROUTINE 
COMMON X I 12 
1 PROOF X,NKT 
" REAL K APR F* 
EXTERNAL EC 
IF UEND.NE 
IENO=100 
10 GO TO (100f 


PROOF ( AO ,CO,X LOW * XUP * I F NO* NPROOF ) 00000010 

*25),YI 1 2,25) .TABLE < 12 * 25 ,25 > ,E I X E D, KCPRF , K APRF , 000000 20 

MX *NCX (1?| ,NOY(12),NTA8llO),IPLnT,IFAIL,CUMSUM,PCVCC 2) 00000030 
KCPRF ' ‘ ‘ 00000040 

T1 ,FCT2,FC13,FCT4,FCT5,FCT6,FCT7 000000 C C 

.0) GO TP 10 00000060 

00000070 

200* 300 * 400 1 ,N PROOF OOOOOOPO 


c 

' 100 CONTlNUt 

CALL RTMI t Al, ZERO, FCT1,XL0W, XUP,. 001 *?ENO*IER ) 
CALL MESS1UER*A1 ,XUP) 

IFRC=IER 

CALL RTMI < A2, ZERO, FCT2,XL0W, XUP,. 001, IEND* I ER) 
CALL MFSS?( IER*A?*XUP) 

I FRC = 1 ERC *ICR 

IF ( I FRC.NE *0 ) GP TL 2000 
AC=AM1N1< Al ,A2) 
co=Ao/F‘xrn 
"GO TP 100O 
200 CCNTINUt 

* CALL RTMI <C0,ZrTn,FCT3 t XLPW,XUP,.001,IEN0,IFM 
CALL ME S S2 ( IER,rC,XUP) 

IF (IER.NE.O) GO TO 2000 
GO TO 1000 
300 CONTINUE 


000000«0 
oooooioo 
00000110 
0000012C 
00000130 
00000140 
00000 150 
00000 100 
000001 70 

oooooieo 

00000 ISO 
00000 200 
00000210 
000C022C 
00000230 
00000 2-0 
0000025C 
00000260 



CALL RTMI (A 1, ZERO *FCTh,XLPW, XUP*. C01 *IENO* I EM 

00000270 


CALL MESS1I 1FR,A1,XUP) 

000002*0 


IERC*JFR 

00C002**0 


CALL RTMI (A2, ZERO, FCT5, XLPW, XUP*. 001, IEN0.1ER) 

000003C0 


CALL MESS2I IER*A?,XUM 

00000310 


IERC = !ERCMER 

00000320 


IF UERC.NE.O) GC TC 2000 

00000 330 


AO=AMI Ml ( Al, A2 1 

0 00003a 0 


CO* F I X L D 

00000350 


GO TO 1000 

000CP360 

400 

CONT INUt 

00000370 


CALL RTmI (C 1, ZERO, FCT6,XL0W, XUP,. 001, IEND, I ER) 

00000 3 BO 


CALL M C SS 1< ITR ,C1 ,XUP) 

00000 35C 


I ERC*I ER 

00000400 


CALL RTMI IC2,ZFRP,FCT7,XtOW,XUP,.001,IEND,IER) 

00000410 


CALL Mf SS2( IER,C2, XUP) 

00000420 


IF.RC=IERC*IER 

00000430 


IF UERC.NE.O) GO TO 2000 

00000440 


C0 = AMIN1(C1, C2> 

00000450 


AO=FIXEO 

00000*50 

1000 

RETURN 

00000470 

2000 

STOP 

00000*fi0 


END 

00000*50 
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subroutine HFSS1( IFR.X.XUP) 

IF (IER.NF-.l) GO TO 600 
X=XUP 

WRITE (6,6010) 

GO TP 700 

600 IF (IER.NF.2) GO TO 700 
X = X UP 

WR I TF ( 6 ,6020 ) 

700 RETURN 

6010 FORMAT (IHO, A.^HPFPOF LOAD CALCULATION AT DF PTH HAS NOT CONVERGED) 
6020 FORMAT! 1M0, 39H6atNDS ON VARIABLE ARE NOT AP PROP R 1 ATE .* /I H , 

1 64HEITHFR CRITICAL STRESS INTENSITY AT DEPTH IS LFSS THAN, 

2 22h KPPGOF AT LOWER POUND, /IN ,26H OR GRFATFR THAN KPROPF , 

T 1 *>H AT UPPTP BTUND) 

END 


000000 10 . 
0000C02C 
00CCG030 
00000040 
00000060 
00000060 
00000070 
OOOOOORO 
COCCOOWC 
00000 1(J0 

00000 lie 
00000120 
00000130 
000001*0 
0C00016C *• 
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Ni 


SURPOUTINE MESS2I IFR,X,XUP) 

IF (IER.NC.l) GP TO 6C0 
X=XUP 

WRITE (6,6010) 

GO TO 700 

600 IF (IER.NF.2) GP TP 700 
XeXUP 

WRI TE 16,6020) 

700 RETURN 

6010 FORMAT ( 1H0, 51HPR0PF LOAD CALCULATION 
6020 F0M*ATflM0»19MBCUf«DS PN VARIABLE ARfc 

1 56HFITHER CRITICAL STRESS INTENSITY 

2 22H K PROOF AT LOWER BOUND,/ IM ,26H 

3 15H AT UPPER BOUND I 
END 


00000160 

00000170 

oooooieo 

00000 190 
00000200 
00000 210 
00000220 
00000 230 
00000240 

AT SURFACE HAS NOT CONVERGED 100000250 


NOT APPROPRIATE. ,/lH , 

AT SURFACE IS LFSS THAN, 
OR GRFATFR THAN KPROPF , 


00000260 

00000270 

00000280 

00000290 

00000300 
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r 


1 


i 


I 


T 



SUBROUTINE RT HI IX ,F ,FCT,XLI , XR1 , E P S , I END, IF R) RTMI 

PTMI 
RTMI 
RTMI 
RTMI 
RTM1 
RTMI 
RTMT 
R 1 MI 
RTM ' 
RTMI 
RTMI 
RTMI 
RTMI 
RTMI 
RTMI 
RTMI 
RTMI 

XII - INPUT VALUE WHICH 5 PTC IF1FS THE INITIAL LETT BOUND RTMI 


CF THF ROOT X. RTMI 

XR1 - INPUT VALUF WHICH SPECIFIES TF.fc INITIAL RIGHT BPUNDR T MI 
OF THF ROOT X, RTMI 

EPS - INPUT VALUF WHICH SPECIFIES Tl-E UPPER BOUND OF THE RTMI 
ERROR OF RFSuLT X. RTMI 

IFND - MAXIMUM NUMBER OF I TT RAT I ON ST F PS SPTCIFIFD. RTMI 

IER - RESULTANT FRF IP PAKAf'ETFR CODfD AS FOLLOWS RTMI 

If R-0 - NO I««Mi RTMI 

' ~ IER = 1 - NO CONVERGENCE AFTFR IFND ITFRaTIPN STEPS RTMI 

FOLLOWED FT UNO SUCCESSIVE STEPS OF RTF! 

BISECTION* RTKI 

ITR=2 - BASIC ASSUMPTION FC T ( X L 1 1 *FCT ( X FI ) LESS RTMI 

THAN OR EOUAL Tf ?ERO IS NOT SATISFIED. RTMI 

RTMI 

REMARKS RTMI 

THE PROCFPURr ASSUMES THAT FUNCTION VALUES AT INITIAL RTMI 

ROUNDS XL I AND XR! HAvp NOT THE S AMF SIC-N. IF THIS BASIC RTMI 
ASSUMPTION IS NOT SATISFIED BY INPUT VALUES XII AND XRI, THFRJMI 
PFOCEDURE IS OYPASSED AND M VES THE ERROR MESSAGE IEP=2. RTMT 

RTMI 

SUBROUTINES AND FUNCTION SUC PROGRAMS REQUIRED PTMI 

THF EXTERNAL FUNCTION LUbPROCK AM FCT(X) MUST BE FURNISHED RTMI 
BY THE USFR • RTMI 

RTMI 

METHOD RTMI 

SOLUTION OF ECU AT I ON FCTfx)«0 IS DtflF E Y MEANS OF MM&LLt *-S RT*I 
ITERATITN MFTHPD OF SMCCFSSIVT BISECTIONS AND INVFRSF RTMI 

PARABOLIC INTERPOLATION, VHILM STARTS /T THE INITIAL BOUNDS RTMI 
XLI AND XFI. CONVERGENCE IS QUADRATIC IF THF [FRIVATIWE OF RTMI 
FCT(X) AT ROOT X IS NOT E DUAL TO /U'n. ONf IT r R A 1 ION STFP RTMI 
REQUIRES TWO FVALUATI ON* f F CCICX). F OF TTST CN S A T 1 5 T ACTCR YR TK I 
ACCURACY SFt FORMULAE Cr,4> Of MATHFM A I IC AL DESCRIPTION. R T M J 
FOR REFERENCE, SEE 0,. K. KR I ST I ANSFN, ZFRO OF ARBITRARY RTMI 

FUNCTION, BJT, VOL. 3 PP.20B-206. RT*I 


RTMI 

RTMI 

RTMI 

RTMI 

PTMI 

RTMI 

RTMI 


.aGINAL PAGE IS 
OF POOR QUALITY 


PREPARE ITERATION 
IFR=0 
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SUBROUTINE RTMI 
PURPOSE 

TP SOLVE GENERAL NONL I NFAF EQUATIONS OF THE FORM FCT(X)*0 
BY MEANS OF MUELLER-S ITERATION METHOD. 

USAGE 

CALL PTMI <X,F,FCT ,XL I ,XR I , EPS , IF ND, I fcR I 
PAR AM FT FR FCT REQUIRES AN EXTERNAL STATEMENT. 

DESCRIPTION FF PARAMETERS 

X - RFSULTANT ROOT OF EQUATION FCTIX) = 0. 

F - PE SUIT ANT FUNCTION VALUE AT ROOT X. 

FCT - NAMF OF “THE FXTFRN*L FUNCTION SUBPPOCRAM USFD. 


5t>0 

10 

?G 

30 

40 

50 

60 

70 

HO 

90 

100 

110 

120 

130 

140 — I 

ISO 
160 
170 
1B0 
IPO 
2CC 
210 
220 
230 
24 0 
2 SO 
26C 
?7 0 
2£*0 
290 
300 
310 
32C 
330 
340 
350 
360 
370 
3H0 
390 
«»00 
*10 
*»?G 
430 
-4C 
4 r . 0 
460 
**7u 
*00 
*,90 

see 

sir 

S/0 

53G 

•540 

550 

570 

580 

S90 

600 



— 

— 

XL=XLI 
XR*XRI 
X =-X L 



RTMI 610 
RTMI 620 
RTMI 630 



T6L** 



RTMI i»hO 



F =FCT < TOL ) 



RTMI 630 



IF ( F ) 1 , 16,1 



RTMI 66C 


1 

F L=F 



RTMI 670 



XcXR 



RTMI 680 



TPL = X 



RTMI 690 



F*FCT (TOL) 



RTMI 70G 



IF ( F) 2 , 16,2 



RTMI 710 


2 

FR*F 



RTMI 720 



IF ( S IGN ( 1 • • FL )♦ SIGN < 1» » F R) ) 23*3,25 



RTMI 736 

c 





RTMI 7*0 

c 


BASIC ASSUMPTION FL*FR LESS THAN 0 IS 

SATISFIED • 

RTMI 730 

<r~ 


GtNtTUTr TOLERANCE for function VALUFS 

• • 


RTMI 766 


3 

1=0 



RTMI 770 



TOLF=lOO.*E PS 



RTMI 7BC' 

C 





RTMI 790 

C 





~ 

RTMI eoo 

C 


START ITERATION LOOP 



RTMI P10 


T 

X* I ♦ I ~ 



RTMI 820 

C 





RTMI B30 

c 


START BISECTION L COP 



RTMI 8* 0 



DO 13 K =1,1 END 



RTMI 6 SC 



X=.5*(XL*XR) 



RTMI F.60 



TOL=X 



RTMI 87u 


. ■ 

T*FCT(TCL ) * 


• - 

RTMI 8E0 



IF ( F )5, 16 ,5 



RTMI B c 0 


5 

IF ( SIGNI l.*F» ♦SIGN! l.,FR))7 t 6,7 



RTMI 900 

c 





RTMI 910 

c 


INTERCHANGE XL AND XR IN ORDER TO GET 

the 

SAME SIGN IN F AND FR 

RTMI «2C 


6 

TGL=XL 



RTMI 930 


* *' "" 

XL = XR 



RTMI 9*0 



XR=TOL 



RTMI 930 



TOL=FL 



RTMI 9*0 



FL = FR 



RTMI «»70 



FR=TOL 



RTMI who 


7 

TOL =E-FL 



RTMI 990 



A=F*TOL 



RTMI 1000 



A*A + A 



RTMI 1010 



IF ( A-FR*( FR— FL ) ) 8 ,9,9 



RTMI1020 


8 

IF <1 — 1 FND 117,17*9 



RTMI 103 0 


9 

XR=X 



RTMI 1040 



FR=F 



RTMI 1030 

c 

" -•** 

..... i- - - • • — "•*" *•“* 



RT Mil 060 

c 


TF ST ON SATISFACTORY ACCURACY IN BISECTION LOOP 

RTMI 1070 



TOl=EPS 



RTMI 1060 



A=ABS( XR) 



RTMI ?0°0 



IF (A-l. Ill, 11 ,10 



RTMIUCO 


10 

TOL=TOL*A 



RTMI 1110 


11 

IF ( ABS ( XR-XL )-TOL >12,12*13 



RTMI 1126 


12 

I F< ARS(FR-FL)-TCLF) 14,16,13 



RTM11 130 


13 

CONTINUE 



R TM 1 1 1*0 

c 


END OF BI SECTION LOOP 



RTMI 1 ISO 

c 




• 

RTMI 1 If C 

c 


NO CONVERGENCE AFTER IFND ITERATION STEPS 

FOLLOWED BY IEND 

RTMI 1 170 

c 


SUCCESSIVE STEPS OF BISECTION OR STEADILY 

INCREASING FUNCTION 

RTMllirO 

c 


VALUES AT RIGHT BCUNDS. ERROR RETURN. 



RTMI 1 1*0 



IER= 1 D-18 


• 

RTMI 1200 


non o 


1* I F (ABS(hR )-ARSCFL )) l6 t lo,lS 

15 X=XL 
F=FL 

16 RETURN 

COMPUTATION OF IT1RATF0 X-VALUE PV INVERSE PAPAPPLIC 

17 A=F R-F 

dx=(x-xl)*flv<i»*f*< a-tol )/(A*(FR-FL)))/TOL 

X M= X 
FM=F 
X=Xl-DX 
TPl=X 

F=FCT(TOL ) 
lF(F)18,16,m 

TEST ON SATISFACTORY ACCURACY IN ITERATION LOOP 
IP T OL = E PS 
A = AL)S IX) 

IFU-1. 120,20, 1Y 
l«> TUl-TCl *(• 

20 IF (ABStrX >-101)21 *21*22 

21 If( ABS( n-TPLF) 16, 16,22 

PRC PAR AT ION Of NF XT BISECTION U PP 

22 IFt SIGN! 1.* F)+SIoM l.*FL) I2<*,23,2* 

23 XR=X 
FR* F 

GO TP 4 
26 XL= X 
FL = F 
XRsXM 
FRsFM 
GO TO 6 

END OF ITFRATIOf) LCCP 


ERROR RETURN IN CASE CF WRONG INPUT OAT A 
?S IFR =2 
RETURN 
END 


R1MJ 1 21C 
RTMJ1220 
RTM11220 
RTp 1 1 2*0 
RTMI 1?6G 
I NTfRPUL AT IPNRTM1 1 260 
RTM112/C 
RTMI 12HP 
RTM 1 1 2**0 
RTMT1300 
RTMI 1310 
RTMI1320 
RTM11 330 
RTK113-0 
RTM11360 
RTMI 1360 
RTMI1370 
RTMI 13t;0 
RTM1 1 3V0 
RTMI 1*00 
RTMI 1410 
RTMI142P 
RTMI 1«*30 
RTMI1^4C 
RTMI 1 6 SC 
RTMI l*t.O 
RTM1 1670 
RTMI 14 PO 
RTMI 1*SC 
RTMI 1 500 
RTMH 51C 
R TM 1 1 5 ?C 
RTMI l f 30 
RTMHf/0 
RTMI 1 S SO 
RTMI 1 560 
R rMll570 
RTMI 15150 
RTMilSco 
RTMI 1 600 



X 


T 


FUNCTION FCTKAF) 00C00C1C 

COMMON XI 12,25 ),V| 12,25), TABLE! 12 ,25 ,25 > ,F IX t D, KCPRF , K APRF , 00000020 

1 PROOF X ,NKTMX ,NOX 112) ,NOY (12),NTAB(10),IPL0T,IFA1 L, CUM SUM, PCVCI 2) 00000030 
"COMMON A , AP 12 ), ALIM,A0L<2) ,C ,CB,CLlM,CR 12,1 0,1 0 ) ,C0 ,CUME v OOOOOOAO 

l CUMELM,C1B1,D< 2, 10,10), DK,DKF , OX OX ,F A , F C ,H , I NC » K CL ,KC 1 ,KOL , 00000050 

KOA,KOr,KCRA,KCRC,KMAX,OA,OC,Pl,R ,RAD,RE ,R YOL I 2) ,R0L<2 ), 00000060 

SIG, S1GLM, SIGY.SIGVSl 10) ,SM1NI -422) ,S MAX 1422) ,TH, 00000070 

UNIT |4?2),W»DCTMP»PELTMP,DXTMP , 00000050 

ALOWN * BLOCK ,FL AG1 » I , ICO 1 2) ,ICKI2),ICR(2),I BLOCK, IF IRST *IPRNI4) , 00000090 

ISTEP,ITRANS,J,KTYPEI2) ,NC,NEQI10) ,NR,NRFTI10),TYPC,tITL 00000100 

INTEGER ALOWN, BLOCK, F LAG1 ,TYPFI 422 ) , TITL I 20 I C0000110 

REAL KCL ,KC 1 ,KOL ,K OA! 10),K0C!10),KCRA( 10 ) ,KCRC( 10 ),KMA X, INC 00000120 

REAL KCPRF, KAPRF 00CG013C 

A»AF 00000140 

C*A/F IX ED 00000150 

CALL KANAL 00000160 

FCT l=—K APRF + FAYPR TOFX 00000170 

RETURN 00000180 

END 00000190 
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FUNCTION FCT? ( AF ) 

COMMON XI 12,25) ,YI12,25),TABLEI 12,25,25),F1XE0,KCPRF,KAPRF, 

1 PROOFX ,NK TMX ,NOX! 12) ,NOY I 1 2 ) , NTA HI10 ) , IPLOT , I F Al L, flJMSUM , PCYC( 2) 
COMMON A, API?), ALlM t Ar:U?),C,CB,CLlM,CR«2,l0,l0),C0,Ct'ME , 

1 CUMFLM,C1B1,D(2, 10,la),0K,DKE,DXDX,PA,FC*H, INC,KCL,KC1 ,K(»L, 

2 KOA,KOC,KCRA,KCKC,KMAX,OA,nC,Pl,P ,R A D, RE ,R v(jl I ? ) ,RUL!2 ), 

3 SIG,S1GLM,SIGY*E1GV$I10),$MJN(<.?2 ),SMAXU2 2) ,TH, 

4 UNIT ( 422 ), W»DC TMP, CT LTMP,PXTMP , 

* ALLiWfJ , BL OCK , FL AC- 1 , I , ICUl 2) ,1CK 12 ) , ICR 1 2 ) ,1 BLOCK , IF 1 RST , I PRN |4 ) , 

6 ISTEP,1TRANS,J,KTYPE(2),NC,M!:CI 10) ,NR,NRrt 110) ,TYPf »TITL 
INTEGER A LOWN ,BLOCK ,Fl AC» 1 ,Tvpc |<*22),TITl(20) 

REAL KCL ,KCl,KOL,KCA( 10) ,KOC I 10 > , K CP A 1 1 0 ) ,K CKO I 10 ), KM AX, INC 
REAL KCPKF.KAPRT 
A* AF 


00000200 
00000210 
0C00022C 
0 0CG023C 
00000 2*0 
00000250 
0000024G 
00000 27C 
00C002HO 
00000290 
00000300 
0 0000 310 
00000320 
00000330 


C*A/F IX ED 0CCC034C 

CALL KANAL 00000250 

FCT2=-KCPRF4FC*PRlf?rX 00C-O0340 

Rf TURN 00000 370 

ENO 0 r 0003t0 


-iGINAL PAGE IS 
OF POOR QUALITY 
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KMAXt INC 


>Cf 

call kanal 

TCT3*'-KtPRF«-FC* PR rOFX 
RETURN 
END 


00000390 
00000400 
0 COCO*. 10 
00000420 
00000430 
00000440 
000009*0 
000C.04M) 
00000«*70 
OCOOOsEO 
00000490 
0 0000*500 
00000510 
000C052C 
00000530 
00C005-G 
00000550 
00000560 
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function FCT4 ( AF ) 

COMMON X( 12, 2 r ) ,Y( 12,25) , TARIFF 12 , 2* ,25 ) , FI Xf 0,KCPRF ,K APPF, 

1 PROOFX ,NKTMX,NUX (12) ,NOY( 1 2 ) ,NTAB ( 10 ) , I PLOT , I F A l L, CMMSUM, PCVC ( 2 ) 
COMMON A,AP(2 )♦ ALIM, AC-L(?)tCtCe,CLlM t CP ( 2 , 1 O, l 0 ) ,C 0 ,CUMf , 

1 CUMf LM,C1B!,D( 2, 10 , 10 ) , OK , DH.C , OXOX ,F A , FC ,H , 1 MC ,KCL ,KC I ,KOL , 

2 KOA,KOC*KCRA,KCRC,KMAX,rA,Of ,PI,F,PA0,RE,RV0LI2) ,R0L(2 ), 

3 SIG,SIGLM,SIGY,$IGYS( 10) ,SMIN( -22),SMAX(*.22),TH, 

4 (IN IT | 4 ?2 ),W,DCTMP,ntLTMP,OxTMP, 

5 AL OWN, BLOCK ,F L AG 1 , I , I CD ( 2) , I CK (2 ) , 1C R( 2 > , I BL OCK , IF IP 5T, IPRN(4 ) , 

A I STEP, I TRANS, J,K TYPE (2) ,NC*N 00(10) *NR ,NRET (10) ,TYPE,TITL 

INTEGER ALOWM,BLOCK,FLAGl,TYPr(i.22),UTL(?0) 

REAL KCL,KCltKOL,KOA( 10 ) , KOC ( 1C ) ,KCRA( 10 ) ,Kfr C ( 10 ) ,KMAX. INC 

REAL KCPRF,KAPOF 

A=A F 

C=F IXED 

CALL KANAL 

FCT4r— K APRF *F A*pF rOFX 

RETURN 

LND 




A=AF 

C=F I XED 
Call kanal 

FCT«>=-KCPRF*FC*PROOFX 

RETURN 

END 


000007*0 
0000077C 
00C00 7K 
00000790 

oooco eoo 
00000 bio 
OOOCOK'r 
00000 r J 
00000 ! AC 
OOCf • * 
00000* 
00000 P 70 
00000P6C 
000nr ;! 
00GG090C 
00000910 
00000920 
00000930 
000009*0 
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AFFIXED 
CALL KANAL 

FC16 = -KAPRF+F A*f R(OFX 
PFTURN 
E NO 


00000*** 0 

ooooow.o 

00000970 

000009f*0 

00000*>90 

OOGOIOOO 

00001010 

000G1020 

00001030 

0C001090 

00001060 

00001060 

00001070 

0000 10 to 
00001 0<vc 

CCCC110C 

0000111C 

OOGOllPG 

0o0011?0 
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FUNCTION FCT7ICF) 

COMMON XI 12,25) *Y|1 2*25) ,TABLF| 12 , 2 5,25 ) , F I X ED, KC PRF ,K AP RP , 

1 PROPFX ,NKTMX »Nf'X II?) ,NPYI 1 ? ) ,NTAfc 1 10 ) , 1PL0T , IF A I L,a>NEUM,l*CVCI 2 ) 
COMMON A,AP(2),ALlM t AfJL<2),C,C&,CLlM,CRI2,10,10) ,CO,CUMF, 

1 CUMELM,C IB 1*0(2 t 10,10),DK,nKE,DXOX,FA,FC,H,INC,KCL,KCl*Ki: L, 

2 KOA,KOC*KCRA,KCRC ,KMAX *0A,0C*P1»R ,RAO, RE *R VOL I 2 ) ,MPll 2 ), 

3 SIG*S1GLM,SIGV,SIGVSI 10) ,SMIN(422) ,SMAX(422) ,TH, 

4 UNlT<422>,W,0CTMP,DELTMP,DxTMP t 

5 ALOWN.PLOCK.FL AG1,I,ICD(2) * ICK (2 ) * ICR I 2 ) . I BLOCK , IF IRST * I PRN 14 > , 
4 I STEP *nFANS»J»KTVPE(2)*NC * NTO 1 1C ) ,NR .NRTT 1 10) *T YPf *T1 Tt 

INTEGER Al OWN* BLOCK *FLAG1 *TVPE I *22 ) ,T IT LI 20 ) 

REAL KCL*KC1.K0L*K0AI 10 ) ,KOC 1 10 ) ,KCRA 1 10) ,KCRC I 10 ) ,KMAX , INC 

REAL KCPRF.KAPRF 

C=CF 

AFFIXED 

CaCITKANAL 

FCT7s-KCPRF^FC*PR00FA 

RETURN 

END 


00001 1-0 
00001 1»>0 
00001 160 
00001170 
000C11HC 
000011*»0 
00001200 
00001210 
00001 220 
00001220 
00001240 
OOCOl 250 
00001260 
00001 270 
000012EO 
00001 2 C 0 
00001300 
00001310 
00001320 
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SUBRC'UT INE P1CGRW 

COMMON X( 12*?5>,Yll2,25),TAbLf( 12 t 25. 25 1 , FI XED, KC PRF , K APPF t 
l PROOF X.NKTMX ,NPX I 12) ,NPY(1 2 1 ,NT Ah 1 10 I , IPLO T * IF A1 l , CUM SUM , P C VC ( 2) 
COMMON A, AP (2 ) ,AL IM ,AOL ( 2 1 , C ,CB ,Cl IM,CR(2«10,1G), CO .CUM f , 
l COMeLM.ClRl.OI2, 10,10),0K.0Kt*,PX0X,FA,FC,H t lNC.KCL ,KC l « KPL , 
kga.kcc.kcra.kcpc.kmax.oa.oc.pi.v »r ao.re ,r yol ( 2 ) ,rol ( 2 1 , 

SIG.S1GLM, SlGY.SIGYS (101 ,SMIn(.»22),$MAX(42 2),TH, 


UNIT (422)*W»0CTMP,0ELTMP,PXTMP, 


ALOWN.BLOCK.FLAGl, l,ic?( 2) ,ICK< 2 ),IC»( 2 ),I 6 L 0 CK,IF 1 RST, 1 PRN|A», 
ISTEP.ITRANS.J.KTVPF (2) .NC.t.ronul.NR.NRET no) .TYPF.TITL 
INTEGER ALCWN, BLOCK , F L AG 1 , TYPE( *>22 I , T ITL ( 20 ) 

RFAL KCL , KC l.KOL,KCA( 10 1 ,K0C ( 1 0 I ,KCRA (10),KCRC( 101.KMAX 
peal inc.ka.kc.kaprf.kcprf 

K=0 

IFIRST^l 
J=TVPEII ) 

1P?5 OFL-1 NC*A 

IF ( NR ET I J ) 1 1050,1050,1030 
IF (ABSfRY0l<2M-.PCCn 1 05 0,1050,1038 


10 30 
103 8 
10*0 
1050 


IF (OEL-.l*r<YrL<?) ) 1050 , 10 r 0 , 1C >.0 
DE L = • 1 *RVPL ( 2 1 
A = A«rFL 

KT sKT YPf (?) 

GO TO (1054, 105*. 1C 54, 105*. 1056,1054,105<*,lC r 4,lC54»1056,l 055, 
1 1054 , 10* 4 , 1C56*]CS(»* 105*, 1056) , * 1 

NOT INTERNAL TYPt CRACK 


1054 T f MP = TH 

GP TP 1 05 B 

INTERNAL TYPE CRACK 

1054 TFk^TH/?. 

lOSfl IF I ABS ( A-OLL-TTMP) -l.r-6) 1 G4G , 1 060, l 07C 

1060 IF (KTVPF(2 1.EQ.7 ) CP TP 1065 
KTYPE ( 1 )=2 
CALL TRANS 
RETURN 

1045 WRITE (4,6110) 

ICR (1 ) *-l 

Cl)MrUM = CUMSt*M4CU v r 

return 

1070 IF (A-TEMP) 1050 , 1CV0, 1 O&O 
10P0 DEL=TEMP-A*OLL 
A=TFMP 

10V0 5 1 GY=S 1GY 5 ( J ) 

IF (F L AG1 1 1130,1100,1130 

1100 «> = o 

S1G=SJCLM 
CALL KANAL 

IF ( SIGLMAF A-KCRA ( J 1 1 1110,1110,1120 
1110 IF (SIGLM*FC-KCRC( J)) 1130,1130,1120 
1120 FLAG 1=1 
Al I M= A 
CL IM=C 
IF)LPCK=BLPCK 
ISTFP=I 
CUMFLM=CUME 
1130 A=A-DE L/2 
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OCOOOOIO 
0 000002G 
000000.30 
00000040 
00000040 
00000050 
OOOCOC70 
OOOOOOPO 
00000040 
00000100 
GG000 110 
0 G0C0120 
OCCCO 1 30 
000001*0 
00000140 
00000160 
00000 170 
00000! EC 
OOCOCl^O 
00000200 
00000210 
00000220 
0 COCO ? 30 
OOGOO 2-G 
00000250 
00000250 
00000270 
00000280 
0 COCO? 40 
00000300 
00000310 
00000320 
OO0GO33O 
0 00003*0 
0OC00 350 
00000360 
0 0000 3 70 
00000380 
00000350 
00000400 
00000*10 
00000*20 
00000*30 
00000**0 
00000*50 
00000460 
00000*70 
0 0000* PC 
00000*.«'0 
00000500 
000005 10 
00000 r 20 
0 C0PO5 3<» 
000005*0 
00000550 
00000560 
00000570 
000005 pp 
CCOOO 5*o 
0C00060Q 


SIG*SMAX( I) 
fUSMIMl )/SMAX(l) 

CALL KANAL 

A«A-0lL/? 

KA=FA*$IG 
KC*FC*SIG 
DKA = ( 1-R ) *K A 
DKC=(1-R)*KC 

IF (K A— KC RA ( J ) ) 1140, 1140, mo 
~Il40 IF (KC-KCRC(J)) 1160,1160,1163 

1150 IF (FLAGl) 1152,1152,1151 

1151 WRITE(6,6ClO) 1 BL CiCK, I STFP*CUMt LM 

1152 WRITE (6,6002) BLPC*,I.CUME 
IFAIL«1 

CUMSIIM=CUMSUW4CI»mF 

icr n )=-i 

RETURN 

1153 IF (FLAG1) 1155,1155,1154 

1154 WR I TE ( 6,601°) IRLPCK , I STEP , CUMELM 

1155 WRITE (6*6003) ftLOCK,I,CUME 
IF A I L-2 

CUMSUM=fl»MSUM4CUME 
ICR ( 1 ) = -l 
RETliRN 

1160 IF (KOA(J)-DKA) 1180,1170,1170 
1170 t»ADX=0 

IF (KGC(J)-DKC) 1190,1172,117? 
117? K = 1 

DCDX=0 
GO TO 1211 
1180 KMAXsKA 
DKcDKA 
NC=2 

CALL DAMAGE 

IF (DXDX) 11*1,11 P2, 1182 
1182 CONTINUE 
DADX-DXDX 

IF (KOC(J)-CKC) 1190*1200,1200 
1190 KMAX=KC 
OK sOK C 


NC= 1 

CALL DAMAGE 

IF (DXDX) 1191,1 152,1 1 9? 
1191 ICR ( 1) =-l 


1192 


1200 

1210 


1211 

1201 

12C2 


CUMSUM=CUMSUM4CUMF 
WRITE (6 1 6100) 
RETURN 


CPNTINUI 
DCDX=DXDX 
GO TO 1210 
DCDX =0 

AVAIL^UNTTf Tl-CUMT 

If (A*C*DCOX*OAnx .EO.O) GO TO 1211 
ADJ=5 «*DADX /A/( DCDX/C ) 

IF (ADJ.GE.l. ) GC TO 1211 
Ot L=*ADJ*OEL 

IF (IPRNI 1)-IPRN(4> ) 1201,1205,1205 
IF (IPRNll)) 1202,1203,1203 
WR I TF ( 6, 8002 ) NR.TITL 
WP I TE ( 6, P 003 ) n oa 


OOOOOoiC' 
00000620 
00000630 
00000640 
00000 65 0 
00000 6* G 
0000067C 
00000680 
00000690 
OOoOOToG 
00000710 
00000720 
00G0073C 
00000740 
00000750 
00000 760 
00000770 
00000780 
0000079C 
00000800 
00000 f 10 
00000b?0 
00000C30 

ocoooe-e 

OOCG0660 
00000660 
00000670 
00000 660 
00000 (90 
00000*00 
00000910 
00000920 
00000930 
0 00009*» 0 
0000095G 
00000*60 
00000970 
00000980 
00000990 
000C1000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
OOCOlObO 
0 000 1 09 U 
00001100 
00001110 
00001120 
00001121 
00C01 12? 
00001123 
00001124 
00001 1 30 
00001140 
00001150 
00001160 
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1203 

1204 


1205 

1220 


1230 

123* 

12-0 

12-1 

12-2 

12-4 

1245 

1246 


1250 


1 ?6 5 

12 55 

1257 

1258 
1254 

1250 

1270 

1271 

1272 

1274 

1275 
1275 


1200 


1281 

1282 

12P4 

128* 

1285 


IPRNI1 1=0 
DFL IMPsO. 

DC7MPs0. 

DXTMPsO. 

IF IlFIFST-I) 1205,1204,1205 
1FIRST=0 

IPRNtl ) = IPRN( 1 )♦! 

WRITE (5,80041 BLOCK ,1 ,CUHF,f ,A,<C,<A,nCDX,DAOX 

IE IK) 5000,1205,5000 

CONTINUE 

IF (ALPWN-l) 1230 ,1220,1230 

D X- 1 

PEL=DAOX 

DC=DCOX 

GO TO 1260 

IF (DAPX) 1235,1255,1235 

IF (PEL/OADX-AVAIL ) l 250, 1 25C , 1 2-0 

DELTMPM.f LTKP*AVAll*DAr>X 

IF (A) 1241 ,1242,1241 

IF ( P C L T RP/ A- 1 . r— »'• ) 12-4,12/4, 1242 

A=A*rFLTMP 

DFLTMP=0. 

ocTyp = ncTRP 4 AVAn»ncox 

IF (C) l?45 t 12*A t l?45 

IF (PCTMP/C-1 .r-4 ) 4000,5000 ,12*6 

C=C*PCTmp 

CCTMPrC. 

GP 70 5CC0 
DX=()f.L/nAPX 
PC»Px*t»crx 
GO TP 1260 
l»C* INC*C 

IF (OYPLI D-l.F-4) 1248,1258* 12S6 

IF (NPET(J)) 1257,1252,1247 
1>C = A * I N 1 I «l*°YPL ( 1 ) ,PC) 

IF (DCPX) 5000, *000, 1259 

PX=DC/D(.OX 

DFL=PX*DAOX 

IF (OX-AVAIL) 1280, 12f’0, 127C 
DFL TVP = DF LTKP 4 AVA I L *P AOX 
IF (A) 1271 ,1272,1271 
IF (DELTMP/A-I.F-h) 127-,127-,127? 

A=A4PELTRP 

DFLTHPrO. 

OCTMP=Pf TMPfAVAlL*CCr.X 

IF 1C) 1275,1275,1275 

IF (DCTMP/C-1 .E-4 ) 5000, 500o ,1276 

C=C*DCTKP 

DC78lP=0. 

CP TP 5CC0 


DELTMP-PFLT PP 4 D f L 

TF (A) 1281 , 1282, 1 2 FI 

IF (PFLTMP/A-l.f-t) l?84,12 r »-, 1282 

A=A*PELTRP 

DFLTMPsO. 

dctmp=pctmp*p»: 

IF (C) 1285,1286, 1?R5 

IF IPCT v P/C-I«E-4 ) 12CG, 1*88, 1286 

C=C4PCTMP 


PCT MPrfl. 


0000 11 70 
00001 180 
00001140 
00001 2C0 
00001210 
00001220 
00001230 
00001 240 
00001 250 
00001260 
00001270 
00001280 
00001250 
00001300 
0CC0131C 
OCGOl 3?0 
00001 33G 
00001.340 
00UO135G 
00001360 
0 COO 1270 
000C1 3£'0 
00001 ?*< 
00001400 
00001-10 
00001-20 
OOOC 1-20 
0CGC1 4-0 
00001450 
00001-50 
00001-70 
00001-80 
00001440 

orooi 5oo 

000P1 51C 
00C0152O 
00001530 
00001 440 
00001650 
00001560 
00001570 
00001580 
00001440 
00001600 
0000 1 MO 
00001620 
OCC01630 
000016-0 
000016 C 0 
00001 660 
one c-i 670 

OCOOIAXO 
0 C 0016 VC 
OOOC170C 
00001710 
OOuOl 720 
OC001730 
00001740 
OCf 0 1 750 
00001760 
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lTPfl DXTMP=DXTMP4DX 

IF (IPLOT.NE.?) GO TO 1300 
CUMTMP*CUMSUM4CUM6 
IF <CUMTrtP.LT.PCYC(2)) GO TO 1300 
WRITE<7,7000) A,C,CUMTMP 
PCYC I 2 )=PCYC ( 2 ) 4PC YC (11 
1300 IF ICUMF) 1269,1290,1289 

1289 IF <DXTMP/C»>mE-1.E-4) 1025, 1025 ,1290 

1290 CUMF=Cl'MF40XT*»® 

DXTMP=0. 

GO TO 1025 
5000 CONTINUE 

CUME=UN IT ( I ) 

CUM$UM*CUMSUM4UNI T ( 1) 

IF ( I PLOT *NE • 2 ) GO TO 5005 

Tr7cuMiuM.it .wcvn’Ji'i r.o to soo5 " " 

WRITE (7,7000) A, C, CUM SUM 
PCYC < 2)=PCYC1 2I4PCYCU) 

5005 IF «IPRN( 1)-IPRN<4) ) 5010,5020,5020 
5010 IPRN< l ) = I PIN ( 1 ) ♦ 1 

WRITF( 6,8005) BLOCK, I ,CHMF , C , A , KC ,K A.DCDX ,D ADX 

yp niiPLOT.NF.il GO TO 5020 

WRITE(7,7000) A,C,CUMSUM 
5020 CONTINUE 
RETURN 

5002 FPRMATU5H0CRITICAL K AT DEPTH HAS BEEN EXCEEDED IN THE ,15, 

1 14H BLOCK AND 7HE,I4,11H STEP AFTER , 1PE 12. 3,7H CYCLES ) 

6003 FCRMATl A7H0CR IT1C AL K AT SURFACE HAS BEEN EXCEEDED IN THE.I6, 

1 1*H BLOCK AND THE,I4,11H STFP AF T ER , 1PE 12. 3 ,7H CYCLES ) 

6019 FORMAT ( 35H0LIMI T LOAD FRACTURE OCCURS IN THE ,16, 7H BLOCK , 

1 I*»,12H STEP AFTER ,1 PEI 2.3 , 7H CYCLES) 

6100 FORMAT ( IhO, 29HCRACK GROWTH RATE IS NEGATIVE ,/lH , 

1 ‘♦6HACCEPTABLF END OF LIFE IF FOR MUN EOUATION USED) 

6110 F0RMATl/lHO,46HCRACK IN TRANSITION. NEED TABLES FOR ANALYSIS.) 
7000 FORMAT 1 *HDA TA , 1P3E 12. 3) 

B002 FOR MAT ( 5H 1RUN , 14 , 5 X, 20A4 , /I HO, 50X ,26HCRACK IS A PART THRU CRACK, 
I /1H0,42X,1?MHALF SURFACF ,50X ,7HSURFACF ,9X, 5HDEPTH) 

8003 FORMAT (1H , 12X,45HBL0CK STEP CYCLES CRACK LENGTH , 

156HCRACK DEPTH KMAX-SURF ACF KMAX— DEPTH GROWTH RATE ,4X, 

21 lHGROwTH RATE,/1H ,46X,4H< IN ) , 1 IX ,hH UN ) ,6X , 13H < KSI ROPT-IN ) ,2 X , 
3 13H ( K S I ROOT-1 N), 4X,10H UN/CYCLE), 5x,l0H| IN /C YCLE ) ,//) 

8004 FORMA T( 10H , 16 ,3X , 14,7 I3X , 1 P tl2. 3 ) ) 

8005 FORMAT ( 10H , 16, 3X , 16,71 3X , 1PF 12. 3 ) ) 

END 


0000)770 

00001780 

00001790 

OOOOlfaOO 

ooooieio 
00001820 
00001P30 
00001840 
00001 850 
00001860 
00001 870 
OGOOl 880 
0000 1 890 
00001900 
0000 19 10 
0CC01 920 
OGOOl 930 
00001940 
000C1 950 
00001960 
00001 970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
OCC02040 
00002050 
OOGO?OtO 
00002070 
00C02080 
00002090 
OC00210C 
00002110 
00002120 
00002130 
00002140 
00002150 
00CG2160 
00002170 
00002180 
0000 2190 
00002200 
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SUBROUTINE 1 R AIMS 
CrPMf N XI 1?,?5) ,V(12* ?5), 
L PR OL*F X *NKT MX ,NPX ( 12) , Nl'Y 
CTMK-ON A,AP<2 ) ,ALIM,APLC2 


PCVC ( 2 ) 


UM T ( **22 >,W,DCTMP,DELTMt>,DXTMP, 

ALPWN,MOCK*FLACl , I,IC0<2) ,ICM2) , ICR < 2 > , I ei PCK , IF 1RST , IPRM 4 ) , 
I $ 1 F P 1 1 TRANS ♦ J »KTYPf f?) t NC*NE0C10l f NR,F’RET (10)«TVPC* Till 
Il:TE< EK ALOWN,f LOCK , FLAG? ♦ TYPE < v2? ) ,CNST EP,T PL(?C) 

RFAL KCL,KCit KfU rKOA( lOT.KOC (10),KCPA(10),KCFC( 10 )»KKAX t lNC 
REAL KA,«C»XAPRF t KCPPF 
k -r 


K.=C 

I F I p £T = 1 

IF (TTPANS-1) 10, IRC, 1C 

CONTINUE 

itran$=i 

KpP. If =KT YPF 1 1 ) 

KTvpr H ) = 3 

F L AC-2 -0 
CALL KANAL 

If <1 AX H >-KC p C I J ) ) 110 ,1 10,1 GC 

tfRITT (6,6021) P LOCK , 1 tCUMC 

CU*S»»M=CUM£U*4Cl»Kf 

IFAIL=3 

ICR » 1 )=-l 

RETURN 

IF (f LAC. 1 ) 14C, 120, 140 

IF (fC*SIGLM-KCKCC J)) 140,1^0,120 

r LAG) =1 

A L I M = A 

C.L I “ - C 

TRLOCK = nLrCK 

I e P = I 

CI!MFLP! = CUPF 

CR=.OX 

t>' T Y P F ( 1 )*KPmG 
S 1 G v s £1 CYf ( J ) 

S ir, = fw ax(i ) 

R^flMI I I/SIC 
CALL KA^AL 

IF IF A*S If— KCRC I J > ) 1F0,]A0,160 

CF=CB*.C?*C 

flai;?= i 

IF (CP.-C) 1 ? C, 1 70 , 1 70 
KPI Tf | <,,<>022) 1*1 CCK ,1 ,CI’VE 
MR IT E <6,1.02’ > CR » C 

I F A II - «» 

IGF. 1 1 )=-l 

Cl' M< *UM=C.i*MClW'-*Cl»Mr 
PTTt !P N 
DEL® I NC *CB 

IF INRETIJ)) ?0«, 209,201 
IF lAhttRYOLH n-.OCOl ) 20°, 209,21*2 

if i'fl-.i*pycl( l) ) rro t ;o*>,/Cj 

DEL*. l*FYrL ( 1 J 

CR»CB*DFl 

IF ICf-.V!*CI 2?*;, 220,210 
ITRAN£*0 D _ 31 


0U1GINA L PAGF tq 
POOR QUALITY 


o c o r,ri r l r 

OOOf >fj () 

oooonc 'c 
occoon^o 
occ^rc r c 

C3C0CC\,o 
G Of 00070 
000000 PO 
coccor^o 
OOGCOIC^ 
0CCCC11C 
oorr.oi; u 
000001 -.o 
C 0000 140 
ccorniM) 
oor^ou c 
ccrr r i /o 
orr o r leo 
cicr.cn 
o ooori ✓ . »o 
roc.ro no 

00000 /VO 

ncrrri7;*c 

oc;*cr?-c 

000007*0 
0 rrrrr^r 
0G000Z7D 
000037' G 
Ccrrorgo 
croooGco 

or* GOO 31 0 
o r .fioo r ro 
orcooG^o 
Orror-^G 
r or r r i r .o 
oor.noHn 
o r oom to 

r>0O.'»c?r 
C r.r r,r ->*-r 
G C r v • » • n c, 
r C C- r*‘ic 

oconr*^ o 

00 GOO 4 AT i 

or OCCU^C* 
oocr.o<.r o 
of or * -?c 

Or 00 04 rr. 

oocrc-^o 
-k. - r r 
gc "vc ir 


r.Cf *'•' f o 
»') GOO r 
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I F (KTYPF (1 ) .NT •? ) GP TP 215 
KTYPE( 1) = 3 
CALL TCGRGW 
RETURN 

215 WRITCf 6,61101 
ICR ( 1 ) «-l 

CUM SUM=CUMSUM+CUMF 
RFTURN 
22 0 CONTINUE 

s ig=sigi* 

CALL KANAL 

IF IS1GLM»FA-KCFC< J)) 1110,1110,1120 
1110 IF (SIGL"*FC-KCRC(J )l 1130,1130,1120 
1120 FLAGl = 1 
CBLIM=CB 
CL IM=C 

IBLPCK=6LCCK 
ISTFP=I 
CUMFLMsCUME 
1130 CB=CP-£>FL/2 
S1G=$MAX( 1) 

R=SMIN(I l/SMAXI I) 

CALL KANAL 
CP=CG-DEL/2 
KA=F A*SIG 
KC=FC*SIG 
DKA=(1-R)*KA 
DKC = ( 1-R ) *KC 

IF (KA-KCRC ( J 1 1 1 1*0, 11-0, 1150 
11*0 IF (KC-KCRC(J)) 11*0, 1160, 1153 

1150 IF (FLAGl) 1152,1152,1151 

1151 WRIT6( 6,6019) IP L PCK , TSTE P ,CUME LM 

1152 WRJTF (6, 6002) BLOCK, J,CUME 
CUMEUM=CUM5UM4CUME 

1FA IL = 1 
ICRU )=-l 
RETURN 

1153 IE (FLAGl) 1155,1155,1154 

115* WRI TF ( 6,6019) IPl CCK, 1STEP,CUMELM 
1155 WRITE (6,6003) ELPCK,I,CUME 
CUM5UM=CUMSUM4CUME 
I F A IL = 2 
ICR II )=-l 
RETURN 

1160 IF (KOC(J)-DKA) 1180,1170,1170 
1170 DADX=0 

IF (KOC(J)-PKC) 1 1®0,1172,1172 
1172 K = 1 

GO TP 1209 
1 1 AO KMA X=KA 
PK=OK A 
NC = 1 

CALL DAMAGE 

IF (DXDX) 1102,1184,118* 

1184 DADXsDXDX 

IF (KOC(J)-DKC) 1100,1200,1200 
1100 KMAX=KC 
OKeDKC 
NC = 1 

CALL DAMAGE n m 



0C000610 

00000620 

00000630 

000006*0 

000006*0 

00000660 

00000*70 

00C006P0 

000006VC 

00000700 

00000710 

00000720 

00C00730 

000007*0 

00000750 

00000760 

00000770 

00000780 

00000 790 
00000 POO 
000C08 10 
00000820 
00000630 
000008*0 
00000 8*0 
00000060 
00000 070 
00000880 
00000090 
00000900 
0C00091C 
00000920 
0C000R30 
00000940 
000009*0 
00000960 
00000970 
00000980 
OGCOC 
OCOOIOOG 
0C001010 
0C001020 
00001030 
000010*0 
00001C50 
00001060 
00001070 
OCOGIOPO 
00001 090 
00001 100 

00001 no 
00001120 
00001130 
000011*0 
00001 150 
00071 1*0 
00001170 
OOOOlltO 
00001140 



if idxpx) 1 !i u <-»i 
ii«? ir.Rm*-i 

MRITM 6,!>lOOI 
pf ri'PN 

11^ mXrrOXPX 

go ir 1210 
1200 r»cox=o 

1210 AVA ll=l»M T ( I )-COMF 

1209 IF (IPRM3)-I p RN(4) 1 1 21 1 , 1 21 5 ♦ 1 2! 5 

1211 IF UPRNI31) 1212*1213*1? 13 

1212 WF J TF I ft, 002 ) NF , 1 1 TL 
W p I 7 F; ( 6, BOO 3 ) 

1P*N<3 )*C 
nCLTVPrO. 

PCTyPsO. 

D XTi^p = G. 

1213 IF HFlPfT-l) 1 ?1 5 , 1? I*,, 121 5 

1214 1F1»ST=0 

IPKM 1 3 ) - I PRf'f ?) + 1 

WRITF. (6,0 00*.) BLOCK, I , C ,CB ,KC »K A ,CCDX , DAOX 

IF IK) *.000,171* ,*-00C 
121*5 CfNTIMjr 

IF ( a LOWN-1 ) 1230,1220,1230 
12 20 (>X=1 

r-Fi^r-AOx 

nc*rcox 

* • r-o t* -1 i:ac 

1270 IF IPADX) 1735,1255,1 235 
1235 IF IDEL/OAOX-AVAIL ) 1250,1250,1240 
12*»0 PEL r^P = L'FLTMP^AVAlL*nADX 
IF (CD 1241, l?4?,l?4l 
1241 IF ntLlMP/CB-1 .F-^ ) 12^4,1244,12*.? 

1?4? Cfc=CH-»nFLTM p 

OF L T vpao. 

1?*,4 r.CT ,, 'p=nr.T'*P>AVA IL*0CflX 
IF (C) l?45,124t,7 245 
124*: if . |,';C"»*P/C-l.F-4 ) 6000,* 000,12-6 
12*»6 C=C-»0CT'1P 
PCT . p -0. 

CO TO 5000 
1250 *'X- r 5FL/nA0X 

oc=cx*nct)y 

CO TP 126 0 

1255 DC=IMC*C 

IP (pvri n )-l .F-4 ) 1 ?5P,7 25P,1256 

1256 IF INRFTIJ)) 12^ ,124F,l?57 

1257 0C=-A-»IN1 I . 1 *P voi I 1 ) , r )C) 

125« IF ILCOX) 5 r * C,3CC0,1 25^ 

1259 r.XtOC/DCDX 

DFL =PX*DA3X 

1240 TP IHX-AVAIL) 1 2BO,7 2BO,1 270 

1270 IH LTf*P=?FLT^P4AV* IL*PADX 
IF (CB) 1271 ,1272 ,!?71 

1271 IF I LEI T^P/C^-l •F-4 ) 1274 ,1 27-., 1272 
127? C P=.CP* DELTUr 

Cf LTKpaO. 

i?74 rcT AP=r'CTMP^AVATL*rcrx 

IF (C) 1275,5276, 1275 

1275 ir ir CT*'P/C-l .1-4 ) *000,5 000,12 76 
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oror,i? 1 o 
c cr ' i ; 7^ 
opr,r.n;-c 
00001 ?-o 
00001 250 
00001260 
00001 ?70 
0CC01 2 F 0 
00001 2 C 0 
of on 3oo 
0CCO7 310 
00001320 
00001 730 
OOGOI 340 
Of 001 350 
00001 ?t>G 
0C0'"'-70 
0000! 3F0 
ocor.i 
OCCOl 4G0 
or r.o i *-io 
OCMifi? *-20 
0(00 14 30 

corn: *.^o 
core i-5C 

OOOC 1 *»<>0 

0 0001470 
001.01 4f 0 
C 0001 4CQ 
OC CGI SCO 
COCCI SIC 

eoc-ei ??c 

Cl 0001 *.30 
000 n 54 0 
0C0P1 45P 
r ooo l r of 
0 0001 r 70 
ocor i 5 po 
orooi 5 90 

00001 600 
CfOOl 61 C 
0CG01 670 

orooi 6 3C 

OCOUl 64p 
0000 if. 50 
0G001 6 40 
0GP0167P 
000014^0 

once 15 so 
orcoi 7rn 
00001710 
OOO'il 720 
CCC01 7?0 
00001740 

ctcc: 75C 

COCCI 7/0 

OOOf i77G 
0000 I 7F0 
OfCCI7«C 
0C001 POO 



1276 C=OnCTM«> 

DCT ►‘**=0. 

GO TP *>000 

12H0 OELTMP=nnLTMP^DfL 

IP (CB) 128 It 1282 * 1281 
I2bl IP (DELTMP/CR-1 .E-4) 1 2*4 , 128*, 12* 2 
12B2 CB=CD+PrLTMP 
DELTMP=0. 

1284 DCTMP=DCTMP40C 

IP It) 1295,128*, 1285 ' 

1285 IP (DCTflP/C-l.E-4) 1288,128 8,12 06 

1286 C=C-*-0CTMP 
DCTMP«0. 

1288 DXT*P=DXTMP4PX 

IP ( I PLPT .NT .2 ) GP TP 1300 
CHMTMP =CU M SUM ♦CUf* E 
IP (CUMTMP.LT.PCYCl ?)) GP TO 1300 
WRI TE < 7,7000) A ,C ,C UMTMP 
PCYCI2 )=PCYC(2)-»PCYC( 1 ) 

1300 IF (CUMF) 1265,12*0,1 285 

1289 IP IDXTMP/CUMF-l.r-4) 180,180,1290 

1290 CUMC=CU*F4DXTf*P ~ 

DXTMP=0. 

GO TO 180 
5000 CONTINUE 

CUWF=UNIT II ) 

CUMSUM«CUMSUM4CUMF 
“ " ip 'i iPtn.Nr.2) r.p to scos 

IP (CUMSUM.LT.PCYC( 2) ) GP TO 5005 
WRITE! 7,7000) A,C,CUMSUM 
PCYC!2)=PCYC(?)4PCYC( 1) 

5005 IF ( IPRN! 3)-IPRN(4) ) 5010,5020, 5020 
5010 IPKNI3 )= IPRN!3)4l 

WR1TF (6,9 CC51* BLOCK ,1 ,CtJMF,C ,C9 ,KC ,K A.DCOX , PADX 
IF (IPLOT.NE. 1) GP TO 5020 
WRITF (7,7000) A , C , C UM S t IM 

5020 CCNTINOF 

RETURN 

6002 FORMAT ( «.5H0CR ITICAL K AI OF PTH HAS BEEN EXCF'OFD IN THE,l6, 

1 14H BLOCK AND THf,IA t llH STEP AE IFR , 1PE12 . 3,7H CYCLES ) 

6003 FORMA T (4TH0CRITICAL K AT SURFACE HAS BFEN EXCEEDED IN TME,l6, 

1 14H BLPCK AMO THE,I4,llh STEP AF f ER , IP 1 12. 3 ,7H CYCLES ) 

*019 PQRHAT (35H0LIH1T LOAD FRACTURE CCCIWS IN THE ,I6,7H BLOCK , 

1 14,1 2H STEP AFTER ,1PE12.3,7H CYCLFS) 

6021 FORMAT (‘»3H0PRACTIIRE OCCURS DURING BREAKTHROUGH IN THE, 

1 lo,l^H BLOCK AND THE,I4,11H STEP AFTFR , 1PE 12.3 ,7H CYCLFS) 

6022 FORMAT (41H0PRACU»PE OCCURS DUPING TRANSITION IN THE, 

1 IG,1*H BLOCK AND THE,l4 f llH STEP AFTER , 1PF 12.3 ,7H CYCLFS) 

6023 FP»mat(6h0CB = , 1 PE 12 .3 , 7H C = ,E12.3) 

6100 FCP M AT ( 1 HO, 2VHCRACK GROWTH R ATF 15 NEGATI VF ,/ 1H , 

1 46HACCI PTA5LF l NO CF LIFE IP PROMUN EOUATICN USED) 

6110 FORMAT! 1H0, r .CHC p ACK PFCOMING THRU-CRACK. NEED 1 AE LF S FOR ANAL Y5 I , 
1 2HS.) 

70oO FORMAT (4HTATA, IPSEl 2.3) 

8C02 FORMA T ( 5H 1R UN , 14 , 5X , ?0A 4 ,/ lHO, *0X , 

130HCRACK IS A CPACK IN TRANS 1 TI DN ,/lH0,43X, 

225HHALF FRONT HALF BACK, 38X,5HF PONT ,9X ,4HR ACK ) 

8 003 HiRMATdH , 12X,4 r HBLOCK STEP CYCLES CRACK LENGTH , 

1 6GHCRACK LENGTH KM. AX— FRONT KMAX-BACK GROWTH RATE , 

21JHGR0WTH RATE,/1H ,46X ,4H( IN ) , 11 X,4H (IN ),6X,13H( KSI ROOT-IN), 
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OOGOIPIO 
00001 620 
000018 30 
00001 840 
00001850 

oogoi eto 

00001670 
00001080 
00001 850 
000019C0 
00001910 
00C01 9?C 
00001930 
00001940 
0000195C 
00C01 9^0 
00001570 
00001980 
00001990 
00002000 
00002010 
0C002020 
0000 2030 
000020M) 
0 00020*>0 
00002060 
00002070 
00002CG0 
0C0C2090 
00002 ICO 
000021)0 
00CC2I20 
00002 130 
000C2140 
00002 1 50 
00002160 
00002170 
00002 180 
00002190 
00CD22C0 
00002210 
00002220 
00002230 
00C02240 
00002250 
0CCC22E0 
00CC2270 
0 00022B0 
00002290 
0 00 C 2300 
00002310 
0CC0232C 
00002330 
0OG02340 
00002 350 
0C0C236C 
0 COO 2 370 
0CGC23LC 
00002390 
0000240C 


'i2X,l‘)H«Kl I 
fiC C4 FORMAT ( 10 m 
COOS FOR MAT (ION 
f ND 


PPOT— I N ) t 4X , i OH ( 1 h/C VCLE)?5X»10H(IN/CYCl p )*//) 
»I**3X, I«.,7nx,lPll2.3>) 
*I6 t 3X*lA,7f?XtlP£12.3n 


Qa> 

°*i%. 


x% 


CCOOP^IO 

OCC w*'A?0 
0CC0243C 

00002^^0 


SUBRCUTINF TCGRPW 

COMMON XI 12,25 ),V( l 2, 25), TAB LEI 12,25,25) , F I XED, KC PRF ,K APRF , 

1 PRnOFX ,r:KTMX,NOX( l 2 ) ,NPY 11 2 ) ,NTAB ( 10), IPLO f, I F A I L , CUM SUN , PCYC ( 2 
C fiwifiN A , AP < ? ) , AL I M , APL I 2 ) , C ,C B ,CL IM , CR 1 2 , 1 0, 1 0 ) , CO ,CUHE , 

1 CUMELM.C IB 1,0(2,10,10) , DK, DKE »DXDX*FA,FC*H,INC*KCL»KC1 *KPL , 

2 K0A,K0C.KCKA,KCPC,KKAX,PA,PC,PI»R.FvAD,RE,RYCI(2) ,RUL(2), 

3 S!G t SIC,LM,SIC.V,*ir,vSI 10) ,SMIN( A22 ),SMAX(a2 2I ,TH, 

4 llN!T(422)»W»DCTMP,DfLTMP,DXTMP, 

5 ALOWN, BLOCK, FLAC1 , 1, ICO! 2) ,1CKI2) , ICR I 2 ) , I BLOCK , IF IRST , IPRNl* ) , 

6 l$TrP,17RAN< ,J,KTVPE(2),NC,NE0(l0),NR,NRETI10),TYPE t TI1l 
INTEGER AL OWN, BLOCK » FLAG l,TYPE I 422) ,TITL 120 ) 

REAL KCL , KC 1, KOI ,K OAI 10) ,KOC 1 10 ) ,KCRA| 10 ) ,KCRCI 10 ), KM AX 
RFAL INC,KC,KAPRF,KCPPF 
IF IRST = 1 
1000 J-T YPE ( 1) 

1025 nFL'=TNC*C 

IF I NR FT I J ) ) 1050,1050,1030 
1030 IF (ABSIRYOLI l) )-.0001) 1050,1050, 1038 
1038 IF (PFL-.1*KYPL 11 ) ) 1 050, 10 B 0 , 1 040 
10*0 Df L = . 1 *RYOL (1 ) 

1050 C=C+OEL 

S!GY=SlGvr>( j) 

If (FLAG1 ) 1130,1100,1130 
1100 R =0 

S IGsSIGLH 
CALL KANAL 

IF ( 3 1GLW*FC— KCRC I J ) ) 1130,1130,1120 
1120 F LAG1 =1 
CLIM=C 

1BL0CK=BL0CK 
ISTEP=1 
CUMFLMsCUK - 
1130 C=C-0EL/2 


1153 

1154 

1155 


1 160 
1170 

1 1 °0 


1180 

1191 

1192 


S1G=SMAX( 1 ) 

R = $M IN 1 1 ) /S MA XII) 

CALL K ANA L 
C=C-DEL/2 
KC=FC*SIG 
OKC = ( 1-R ) *KC 

IF (KC-KCRC (J ) ) 1160,1160,1153 
If IF L AG 1 ) 115 5,1155, 1154 

WRITE 16,6014) IBLOCK , 1ST E P,CUMF IM 
WR1TF (6,6003 ) BLOCK , I ,CUMF 
IFAIL=2 

CUM SUM =CUMS(!M-»CtWF 
ICR 11)=-! 

RETURN 

IF (KOC(J)-OKC) 1190,1170,1170 

t‘Cox=o 

GP TP 11P0 
KMAX=KC 
OK=PKC 
NC»1 

CALL DAMAGE 
DCDX =DXOX 

If (IPRN(2)-IPRN(4) ) 1191,1195,1195 

IF ( I PR N ( 2 ) ) 1192,1193,1193 

WR1 TF ( 6, 6002 ) NR , TT TL 
WRITF(6,C003) 

IPRN(?)=0 D _ 36 


00000010 
000000 20 
00000030 
0 00000*0 
0CC00G5C 
00000060 
00000070 
00000060 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000 1 60 
000001 7C 
00000 1 60 
00000190 
000002t»0 
00000210 
00000220 
00000 230 
00000 2*0 
00000250 
00000260 
00000270 
000C02F0 
00000290 
00000300 
00000310 
00000320 
00000330 
000003*0 
OCOG035C 
00000360 
00000370 
0000038C 
00000390 
00000400 
00000*1 0 
00000420 
00000430 
0OCOO44O 
00000*50 
00000460 
00000470 
00000460 
0 (.0004 90 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
000005*0 
00G0G5VG 
0G0006O0 


PFLTMP = C« 

nxt mp = o • 

1193 IF ( 1 F I RST- 1 ) 1195,11*4,1105 
ll«4 IF I°$ T = 0 

IPRN(2)=IPRN(?)4l 

WRITF (4,600*) BLOCK ,1 ,CUMF,C,KC,DCOX 
1195 CPNTINUf 

IF (ICOX) 1 200, *000*1210 
1200 ICR ( 1 ) =-l 

WR I TF ( 6 ,6 100) 

CUM SUM = CUMSU»*4ClMfc 
RETURN 

1210 AVML = UNIT( D-CIIMF 

IF (ALPWN-1) 1 230, 1220 ,1230 
1220 DX * 1 

rFL=PCDX 
GO TO 1200 
.1230 rx=DFl/PCDX 

IF (LX-AVAIL) l?8C t 12B0,1?TC 
1270 OELTMP*=OELTMP«AVAIL*Drnx 
IF (C) 1271 ,1 272,1271 

1271 IF (PELTMP/C-l.F-i) 5COO,5CCO,l?*>? 

1272 C-C+DFLTKP 
Dt LTMP = 0. 

GO TO 5000 

12B0 DrLT M P=OELT*P-*Oll 

IF I C > 12fil ,12P2, 1>F1 
*1261 IF CDrLTF P/C-l.r-A) l?fi4,l?G4,l?R2 
1282 C=C+PELTMp 
PFLTMP = 0. 

i?P4 OXTMPsOxTMP+OX 

IF (IPLrT.NF.Z) Gf TO 1300 

CUMTMP*LUMSUM4CUMF 

IF (CUMTMP. LT.PCVC (?) ) GC TO 1300 

WPITP ( 7,7000) »,r,Cl/MTMP 

PCVC (2 )=PCVC(?)4PfVC( 1 ) 

1300 IF (CUMF) 1265,1284,1265 
1285 IF (PXTMP/CUME-I.E-h) 10? 5 , 1025 ,1? «6 
1264 CI»mE = CMFE4DXTMP 
DXTMPsO. 

GO TO 1025 
5000 CONTINUE 

CUM5UM=CUMSUM4lP“IT| I) 

CUMr=UNTT(I) 

IF (IPLllT.NE.?) Gf TO 5005 
IF (CUMSUM.LT . PC VC (?) ) GOTO 5005 
WRI TF < 7, 7G0G) A,C,ClJKf.UM 
PCYC(2 ) = PCVC(2)-»PC V C( 1 ) 

5005 IF (IP«M?)-!PRN(- ) ) 501 0 ,5C 20 » 50 20 
*010 IPFN( 2) = IPRN(?)-»1 

WRITF I 6,6005) Bl°CK» I *Cl)M E* C »KC *PC DX 
IF ItPLPT.NF.l) GC TP 5C?0 
WKITF (7,7000 A,C,CUM«UM 
5020 CPNT1MUF 
RETURN 

4003 FORMAT (47H0CRITICAL K AT SURFACE HAS BFFN EXCEEPTb IN THr,I(., 
I 14M BLOCK AND THE « l4« 1 1H STFP AFT E R , IP T 1 2. 3, 7H CVCLES » 

6019 FPRMAT(35H0LIMIT LPAC PRACTURE OCCURS IN TMF ,14, 7H BL n CK , 

1 1A,12H STEP AFT PR ,lPfl2.T,7M C.YC L r 5 ) 

6100 FTRMATI 1HC,?PHCPACK GROWTH R AT F IT NFGAT I VF ,/ 1H , 
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OC000610 
0CC00420 
0CCC063G 
OOOOOfc^O 
00000650 
00000 460 
0CC0047o 
OOCOO 4F0 
0 0000 A 90 
0OGGC7..0 
00000 710 
0O000720 
OOCOO 730 
0000074C 
00000750 
00000760 
OC000770 
000007PC 
C C000 7 t C l 
OCOOOFCC 
0 0000 1 1 0 
oceooK'p 
ocooof ? n 
OOf.f'OF^O 
Of'CCOf Kf. 
OOCCOEfcO 
0 coon , '•to 

OCCOOF60 
0 0000 F 90 

00000^00 
0 5000 o 10 
ooooo< ?o 
O0CCO5U 
ooooo r i.o 
001)00 °50 
CC00054C 
0 0000*^7 0 
CCCCO^PO 
nr, 00 O 600 
04001 400 
00001 010 
0CC01C2C 
OOOOIO-'O 

0 040 1 r -0 
000010*0 

00001 OAG 
0 0001070 
00001C 8C 

one 01 G «0 
enrol iro 
0000 .no 

00 f*Oi ii«o 

ccoci r»c 
occc: 140 

OCCCl 140 
O'OCl uc 
00051170 
00001 1 FO 
00001 160 
ccoo:?co 



1 46HACCEPTA6LT END OF LIFE IF FORMflN EQUATION USED) OOOOI ?10 

7000 FORMAT (AH0ATA,1P?F1 2.3) 00001 ?2< 

8002 FOPMATfSHlRUN , 14 t *>X , 20 A4,/ IHO , 50 X .24HCRACK IS A THROUGH CRACK, 00001230 

1/1H0,^^X,4HHALF,25X,5HCRACK ) 000012<*C 

8003 FOR MA F ( 1 H , I2X »4f»H BLOCK STEP CYCLES CRACK LENGTH , 000012* 0 

14X,4HKMAX,7X, 11HGR0WTH RATE , /1H ,*6X,4H(IN) ,6X, 13H(KS1 ROOT-IN), 00C01260 
24X, 10H( IN/CYCLt ),//) 00001270 

8004 FORMAT (1 OH • 1 6,3X , 14 ,7 ( 3X , 1PE12 . 3) ) OOOG12PO 

8005 FORMAT < 10H , If* ,3X , 14,7 1 3X , 1PE 12. 3 ) ) 000012^0 

FNO * ■"* * 00001 30C 



u o o 1 o p u 


V 

i 


siipkoutinf r , AM * r.r 

Cf MV.( N X ( 12,25 ),Y( 12,25) ,7AP IF ( l2,25,25),FIXFD,KfP<»F,KAPKF, 

1 PRC! PX.NKTM* ,NPXI 12) ,NOY II 2 ) ,N7 AS ( 1 0 ) , 1 PLOT , IF AI l , CtlHSUH , P f VPI 2 ) 
CCMfcCN A, API 2) ,AL IH.AOL 12) » C,CB ,Cl IM, CR 1 2 » 10, 10 >, CC.CUMf , 

1 Cl'MFLM.f. IB 1,0(2, 10,10) ,OK,OKF,UXD X,FA,FC,H, INC, KCL ,KCl,Krt , 

2 KOA t KOC*KCkA,KCPC ,KMAX ,CA,0C,P1,P *H AO, P E ,R YL L 1 2 ) ,Rt)L I 2 ) , 

3 <lG,i>If LM,«1GV,SIGYS(IC),SMIM a22),SMAX|42 2) ,TH, 

UNIT I - 2 2 ) * W,DCT* P » DF L7MP,DX7**P , 

5 AlbWN,6LPCK,Fl AC1, I, ICO! 2) ,ICK 12 I ,ICR I 2 ) , 1 BLOCK , IF IF ST , 1 PRM 4 ) , 
h ISTrP,17RANS,J,KlYl TI 2 ) , NC , Nr 0 ( 10 ), NR , NRrTfl 0 ) ,TYPr,TITL 
INTFGFR AL 0 WN , BL 0 CK , FIAG 1 ,T YPEI * 22 ) , TITL I 20 ) 

PFAI KCL ,KC1,KPI ,KC A( 10 > ,KCC 1 1 0 ) , K CRA II 0 ) ,KCRC I 10 ) ,KMAX , INC 
REAL KO,KtR,KCPRF,KAPRF 
S F = « 

DKE= I 1 •— RE )*KM AX 
IF (NFC I J )) 700,700,10 
10 IP I NFC I J )- ♦ ) 2 0,20,700 
20 J 1 = NFO I J ) 

GO 70 (30,200,300,4/0), Jl 

LOLl IPRIt S7—FHRE7 E CHAT I Of* 

30 Cr*D(NC,l ,J ) 

TN=P |r,C,2, J ) 

KO=n(NC ,<♦ ,J ) 

KCR=f>|NC,3, Jl 
IF INREFIJ)) 6C ,90,80 

80 CALL RE TARO ^ r~y ^ I W'!' }* V'C* J 

90 CC 1 = A LOO ( <C V /K 0 ) ^ .V 

CC2*CC l*PN/2. • l " * »€ T . C $') f'Sr> "* ~ ?• *+. 

CC1-PN/2. 

CC1= I KCR *K0 ) * *0C 1 
CC1=C0*CC1 
71= (l.-FE )*KC«*KC 
71 = ( OK £*♦ ?) /T 1 

T 1 =ALOC» I 71 ) .... 

7 2*11 • -K ) *K CR /K C 
7 2* At CO I 7 2) 

T 1*7 1/T2 

73= (1 .4TD/I1.-7 1 ) 

72= .5* ALOOI 73 ) 

7i=ccr+7? 

1 2= r XP (71) 

DXDX=CC1*T2 

GO rn 6C0 DRinnrA, . 


p - p ~ 


PARI' CL'UATION 

200 IF INC -2) 220,210,220 
21C CD=P(2,l,J) 

PN*0I?,2,J> 
or 70 250 
22 3 CD = !'( 1 , 1, J) 

PN=D( 1 ,?, J) 

250 IF (NRF7(J)» 260,270,2o0 
TOO CALL RE7AFP 
?7C OXDX =— 1 

IF (OKF-KCC (.») ) 271,275,275 

271 IF INC-1) 275,272,2/5 

272 DX0X=0 


Driqixai r 
D® •Poor (j; 
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oonoor io 
00000020 
0C0CCC30 

ooooro-o 

0000005 o 

oooooooo 

0CCC0070 

oooooc* o 

0CC00C l '0 
00000100 
ooooo no 
00000 120 
00000130 
cccooi-n 
0CCC015C 
OOCOOl t.C 

o or on l 70 

OijijuO 1 P 9 
00000 IM’! 
C0CC0200 
0CC:021G 
00000220 
00/00230 
GOCOO.-4 0 

oronc 7‘ c 
CGCC-0260 
05C00270 
core r ?rc 

00000290 
00000300 
0 (<000310 
0C000320 
00C003 o 0 
CCCOO'^O 
Of ooo:- ! O 
0(000 3/0 
00000 370 
OOOCO'FC 
000003*" 0 
0GCCC40C 
0 0000*. 10 
00000—20 
ooroo-30 
O(C00*.-0 
CO COO- 50 
OCCOC-AO 

ooroc -70 

0CGO048O 
0000(4^0 
OOOCjO ' ufi 

ocrrr . r - ic 

OOC 00 520 
0 G0C05 30 
00000*40 

OOoOO *50 
Oi »/<(><» ‘ CO 
OC OOO* 7C 
OCO n O 
CG0C0 5‘ J C 
0000O6C0 


no ^ o r> r> 


GO TO 60C 

275 IF (DKE-*OA(J)) 276,278,278 

276 IF (NC-2) 278,277,278 

277 DXDX = G 
GO TO 600 

278 L>XDX =CD*DKE** PN 
GO TO 600 

FORMAN IOUATION 

300 0XDX=-I 

IF (DKE-KOC(J)) 310,330,330 
310 IF (NC-l) 330,320,330 
320 OXDX=0 

GO TO 600 

330 IF (DKC-kOA(J))'"3^0,360,36D 
3-0 IF INC-?) 360,350,360 
350 DXDX=G 

GC> TO 600 

360 IF ( ( l.-Rr)*D(NC,3, JI-OKF) 370,^70,380 
370 WR I TE ( 6* 600 1 ) 

GO TO 600 

360 OXDX =■ D(NC,1,J)*DKE**0(NC,2,J) 

DXDX=DX0X/( (1 .-PE ) *D( t.C , 3 • J ) -OK C ) 

GO TO 6C0 

INTERPOLATION MpnfL 

400 NT = NTABIJ ) 

IF (NC.L0.1 ) GO TO 40 ? 

NT =NT ♦ 1 ' 

402 IF (NRfTl J ) ) 420,-20,410 
410 CALL RETARD 
"420 IF (NT.LT.13) Gf TO 430 
WRITE(6,oOO?) 

STOP 

430 CALL I NTP ( NT , DK f , RE » 2 »DXD X) 

RETURN 
600 RETURN 

" 700 WRITE (6,1 COO ) NFG(J) 

STOP 

1000 FORMAT (lOHONEO(J) = ,I3,13H OUT OF RANGE) 

6C0 1 FORMAT (39H0CPACK GROWTH RATE HAS GONE TD INFINITY) 
6002 FORMAT ( 1HO, *NT IS GREATER THAN 12* ) 

END 


00000610 

ocooo6;o 

0 000063C 
0C0C064C 
00000660 
00000660 
00000670 
00CC066O 

0C00064Q 

000C07CC 
000007 1 C 
0 0000720 
00000730 
0C0OC740 
0000075G 
0 000076 C 
00C007/C 
000007EG 

000007O0 

oooroeco 

OOGCOFIO 
0000082C 
OOOOOF 30 
00000640 
00000 8 C 0 
00C00660 
00CG0R7G 
0G0006CG 
00000650 
0C000900 
00000 Rio 
0C000620 
00000930 
00000 040 
0000095 0 
0C000960 
00000970 
0C0O09EC 
00000900 
00001000 
00001010 
00001020 
00001030 
OCOOIOAO 
0C001C50 


non 





SUBRCMT INF B F TARO 

COMMON XX ( 12,25) ,YY( 12, 2M,TABLL( 12*2 5,25), FI XED,KCPRF,KAPPF, 
l PROOF X , NKTMX *NOX I 1?),NPV( 1 2) ,NTAB I 10 ) , I PLOT « IF AUtCUH$UM,«»f.VC< 2) 
COMMON A, AP (2 ) , AL IM,AOK?),C,CB,CLIm,CR I2,IC,10 » ,fC,CUM* , 

1 CU3F LM,r. 1BI,D(2, 10,10 ,DK,OKk,nXDX,FA,FC,H,INC,KCL,KCl,Kr t, 

2 KOA,KOC,KCPA,KCPC,KKAX,PA,PC,Pl,R,*.AD,PE,PVrLf 2) ,Rf»Lf 2), 

3 S1G,SIGLM,S1GY,$IGYS( 10) ,SMIN( A? 2) ,SMAX(422) ,TH , 

A UNIT(i,22),W,PClMP,DrLTMP,nxTMP, 

5 *L« WN,BLf CK.FLAf 1, I, ICDI?) , I CK ( 2 ) , ICR < 2 ) , I BLOCK , IF IR ST , I PP.N (4 ) , 

6 l.'TFP , |TRANS,J,KlYPEI2)fNCfM.0(10),riRfNRrT ( 10) ,1 VPF ,T ITL 
1 NT FGF R ALnwruBLfCK ,FtAGl*TYPr(*»22)*TITLI20 ) 

REAL KCL,KC1,KPL,K0A( 10 ) ,Kl>C ( 10 ) ,KCRA < 1 0) ,K CRC ( 10 ) ,K.MAX , INC 
REAL KAP,KMJNf ,KC2*KKAXE ,«CPRF , KAF RF 
PZ = CR(NC,1,J) 

IF (NR FT ( J) ) 500, * 00 * 10 
~ 10 IF (NRFT(J)-'H ?0 ,20,500 

20 Jl=NRtT ( J ) 

IF (NIC- 1 ) 2 2,21,2? 

21 X-C 

PC 12 23 

22 X=A 

~ 2? cpNTimir 

PC TO ( AC, 250 *3CC ) , J1 

KILLFNBORG MODEL 

30 RY=(KMAX/< HY )**2 
P1 = CRINC,1,J)*2.*PI 
R1=1./R1 
R V=R Y*R1 

IF (RY-AP (NC )-»X) 50,40,‘»0 

*C AP(\C)=X*RV 
R YPL (NC ) = R.Y 

~ FO KAP=?*P I* 1 AP(NC )- X ) 

K Al>r-5PR'( ( KAP)*S1CY 
K M A X F = 2 * K M A V - K IP 
KMNF=( WRJ^KF'AX - x/P 
IF (K^INF) 40, <50,70 
60 K MINE - 0 
*"■"70 IF (KYAXE) TO, 00,00 
FO K«*AXF = 0 
°0 F> K E =K M A XE -K N IN E 
RE*KMINF/KMAXE 
r,o Tr 4«o 

c 

C W^FELER MOOrt 

c 

200 RY= (Kf* AX/EIl Y)**2 
R 1=CR ( NC, 1, J )*?.*PI 
R 1 = 1 ./R) 

p Y=PV*R 1 

IF (rv-AP (NC)4X) 220,?10,21C 
210 AP(Nf*,*X4RY 
RYOL(NC ) = R Y 
220 DKE = RY/( AP(WC ) — X) 

DKE-PKF>»»CRfNC,rt J ) 

PKF = DKF»( l.-R)*KMAX 

R F i P 

GO TO A or 

C D-41 


occoroio 
00000020 
oooooo?o 
000000-0 
OCOOOOGO 
OCCCOOo^ 
00000070 
OOOOOOl 0 

oooooo c o 
''rcornro 
oooco no 

COOC Cl 20 
000001 '40 

00000140 

0 CtiOOT 50 
CCCCOlt.C 
Of 0001 70 
OOCCOlfeC 

ooooo l fc 0 
00000200 
or.cr r ; »c 
C00002.-0 

oocror-o 

00000240 
ooooor* o 
00000260 
0C0C02Y0 
OOCOO ?f-C 
0CD002VO 

0^000 ?co 

onooono 

0000032 0 
oc 000 3-0 
0GC002<-0 
0 DOOO A 

o?oro?#.o 

00000^70 
00000360 
Of OOC3 c O 
00000^00 
oroco^-io 
00000620 
0n00O43O 
0 000044 0 
fx>0u(<450 

roono*.6C 

OCOOO~70 

CCC0G4BC 

occrr^vo 

ooooc K ro 

<>0000510 

orror* in 
ocoor;.3o 
OOCOO 560 

orooo c * o 

00000560 

orcf o* 7C 

00CC05FC 
OOCOO'. «“C 

oor^ct.cc 





C GRUMMAN CLOSURE MODEL 

C 

300 ALOWN=0 

pz*cR<N<r,r,jr 

CFMl = CR(NC*2,J) 

CFO = CR(NC,3,J> 

P = CF(NC,4,J) 

* NSAT = CR (NC, *>* J) 

GAM 1 = CR(NC,6,J) 

BG = CR(NC,7,JT 

RY=( KMAX/SIGY )**2 
R 1 = P2 *?*PI ” 

Rl=l./R1 

RY=Rl*RV 

CF2=CFM1-MCF0-CFM1)*(1*R)**P 
KC2=CF2*KMAX" 

IF ( R*KM AX—ROL ( NC )*KOL ) 310,320,320 
310 ROLINC ) = (R*KKAX)/KPL 

CF I =CF Ml ♦ ICF0—CFM1 >*( 14R0LI NC) )**P 
Kf 1-CF 1*K0L 
ArL (NC ) = X 

320 IF (KMAX-KCO 320,330,340 
330 DKE =0 
RF =0 

GO TO 430 

340 IF (KC2-KCL) 350,350,360 
350 IF (API NC )—X— R Y ) 340,370,370 
360 KCL=KC1-(KC1-KC2)*( (X-AF L (NC ) )/PYrt CNC » )**BC 
GO TO 400 
370 KCL=KC2 
GO TO 400 

3P0 IF (CUMt^l-NSAT) 390,370 , 370 
3Q0 GAM=GAM1* (1-GAM1 )*C»»ME /( NSAT-l ) 

KCL=GAM*KMAX 

AL0WN=1 

400 DKE=KMAX-KCL 
RF = KCL/KMAX 

IF (AP(NC)-X-RV) *-10,420,420 
*10 IF f K MAX-KOL ) 430,430,420 
420 KC1=KC2 
KOL=KMAX 
RULING > = R 
ACL INC )=X 
R YOL( NC )=R Y 

APINC IsAPLINC ) ♦P YFL (NC ) 

’ 430 RETURN 

500 WRITE! 6,1000) NRETIJ) 

1000 FORMAT (11H0NRF7I J ) - ,I3,13H OUT OF RANGE) 
STOP 
END 


00000610 
00CO062O 
00000620 
000006n0 
OOCC065C 
00000660 
00000 670 
0 00006FO 
00000690 
00000700 
0000071 C 
00000720 
00000730 
000007*0 
00000760 
00000 760 
00C00770 
00000 780 
00000790 
OCOOOPGO 
00000 PIC 
00000520 
00000830 
00000640 
00000640 
00000660 
00000670 
OOOOOPPO 
0C000P9G 
00000900 
00000910 
00000970 
00000930 
000C0940 
00000950 
00000960 
00000470 
000009P0 
00000990 
OOGOIOCO 
00001010 
00001020 
00001030 
0000 1040 
00001050 
OOOOlOcO 
00001070 
00001 OPO 
00001060 
000011C0 
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non o r> o 


SMR'tfMITINE 1NTP(\'T,XT,YT.INTPEQ,F) aCP^Ofil'; 

COMMON X( 12.25),Y(1 2.25),TABLE( 12.25.25).FIXFD.KCPRF,KAFRF t Of OfOr.pf, 

1 t'RnPFX t NKTMX,NOX( 1?) ,NOY ( 1 ? ) ,NTA R ( 1 0 1 . 1*101 . I F AI l . CUM SI»F .PC VC ( 21 00000020 



FEAL KCPPF.K/PRf 

or ooo gao 


NFND=C 

OCOOOC' c 


M»MX = NPX (tvT ) 

o cor or o 


N»IMY = NCY(NT ) 

OOOOO*- ft 


if (X(NT, 1 1 .GT.XT 1 r-G TO f. 

ooooo -»rr 


IF ( X ( NT . NU^X ) «f F a X T ) GO TO 10 

OOOOOO c O 

5 

WH I F( A.6CIG) XT.M 

occonioo 


NLNC-l 

ocor.nj io 

10 

IF (Y(NT.l).GT.YT) GO Til 15 

0 COCO 120 


IF (Y(NT,N»IMY I.GE.VT) Of TO 20 

OCCOOliC 

15 

WRI tf ( 6,6020) VT.NT 

000001 AO 


NFN n = 1 

000001*0 

20 

IF ( NT NO 1 3 G. 4 0.30 

0C000160 

3C 

STOP 

or COO 170 

4.0 

00 50 I Jr 2. (UMX 

0CCC01 f-0 


IF (XT.LT.X (NT , I J 1) GO TC GO 

ocoroU'C 

*0 

CCN T I NHL 

00000700 

bO 

NX = I J 

OOOOO t ’ •# 


00 70 IJ=2,N1IMV 
IF (YT.LT.V(NT.IJ)I r.O 70 80 
70 CONTINUE 
PO NY=IJ 

if (iNmc.ec.it oo to 100 
IF < IIYTOfO.ro.?) 00 TO ?cc 
WF ITH (F..6C3G) 

STOP 

FfJtK PCINT LINEAR t I VAR J AT C INTT R D OL A T1 ON 

ICO N X M 1 = N X- 1 
VVM 1=N'V-1 

P=X (NT .NX l-X (NT.NXMl 1 
P = ( XT-X (N'T.f.X VI ) )/f» 

C = Y( iT,NV )-v(NT t WMl ) 

C- ( YT-YINT .^Wl 11/0 
Fl'O =T Af L c (NT.NXM1.NVM1) 

FI 0»T ABLF (NT .NX *N VM 1 ) 

FCl*TAhir (NT f NXMl ,NY1 
F ll-TAGl E(NT,NX,NY) 

F = (7.-P)*(1.-C)*F0(. 4 P*(i.-L)*Flf 
F=F 4. 0*(1 )*F0! 4 n*r * FI 1 

kXHH N 


2 RlG m r , 

F f0 ^ocT J, ' : '■ 


OC CO 0 220 
OOOOO?? 0 
OCCC02-0 
00000 25 0 
O 6000? 00 
00000270 
00000250 
00000250 
DCCOCr.ro 
DOC 00? 10 
00000220 
0 vjOOO ?.?G 
000002-0 
0 0000 ? r o 
ooccc ?/ r 

OftOiX'270 

ooo oo?. or 
ooooo ' >r, 0 

OOOOOAOC 
ocooo^in 
o coco- :r. 
r cnoo-yo 
o coon a <• o 

Cf C00-5C 


FCUR POINT LOG-LINEAR 5 1 VAR I A TC 1 NTTF-PCLA! 10*1 


200 NXM1=NX-1 

NVM1-NV-7 

P = AU1G(XT/X (NT.NXM1 ) 1 
P*P/ALCP(X( f’T ,NX)/X(NT .NX Ml 1 ) 

C=Y (NT .NY )-Y (NT ,NYM1 ) 

C. - ( YT -Y (NT. NYMl ) 1/0 

FOO=AL 0 O(TABLf (fT.NXMl.NVMl ) ) 

Fir.= ALOO(TAfiLr(\T t Nx.NYMl )) 

F 01 = A LOG ( T A OL P ( NT « NX Ml *NV > ) 

Fll = AL f C( TAT L F ( NT .NX, NY) ) 
r* (l.-p)*(l .-C)*FOC 4 P* ( 1 .-0) * F 1C 
F=F 4 CMl.-P)*F01 4 P*L'*F 1 1 n 


orooo-fC 

000204,70 
0 COCO 4 - FC 

n oooo aft 
ooooo* rn 
0 TOGO 5 10 
0GCC05 PC 
000C053Q 
G00( 05-.0 
nonco** n 
00000*- 60 
Of COG ‘70 
orr, rof.fr. 
OOOCCf **0 
300C06C0 


; 


F=EXP<F) 

RETURN 

60 1C FORMAT I1H0, *.HX * « 1PE12*3» 26H_IS OUT OF RANGE 
>> 0?0 FORMAT I1H0, <,HY = , 1PE12.3,26H ~1S OUT OF RANGE 
6030 FORMAT MlHO, 21HERRCR IN CALL TO INTP) 

FNO 


TABLE ,IA) 
TABLE *14 > 


00000610 
OCOOO 620 
00000630 
C0G006A0 
000006*0 
00000660 





X 


c 

c 

c 


S.URSPUTJNr KANAt 

N X(12,?M,V<12,2M,TARlFI 12,2S,?S»,FIXFD,KCPRF,KAPRF, 

1 r>»Of CX,NK7M*,N0X< 1?) .NPVIl?) ,NTARt!0),IPLPT,IF A] L, CUM <^UM, P C VC ( ?) 
C < MT-N a,APC) ,AL lM f APL<2),C t Cf3,CLlM t CA(2,l0 t 10),C0,CUME, 

1 dl^FLM*C 1B1,L*C ?♦ 10,l(*l ,r*K,f>KE,DXDX,FA,FC,H,INC,KCL,KCl »Kf L t 
? KOA»KOC»K CP A, KCRC , KMAX , OA » PC » P I * R ,PAO,PE t«m'U2> ,RUL (? ), 

3 S10.,5IGL*S5 irv,SIGYS<lo> ,$MIH( «-22 >,SMAXU22> ,TH, 

4 tlfJlTI*.^), W,DClMP t r>FLTMP t pxTMP, 

5 A L r W N » F L TC K t F L ft C- 1 , 1 , I CD I .? ) , ICK I 2 1 • IC K f 2 > » 1 RUCK, IF JRST , IPRNf 4 ) , 

6 ISTFP,1 TRAMfi , J ,K TYPF (?) ,NC ,*F0 1 1 01 , NR, N* ET U 0 1 ,T YP F,TI U 
I NTH ER ALOWN,BlfCK ,Fl AG1,TYPF U2?) ,TJTU20 > 

REAL KCL ,KCl,Kr!L,KOAl 1 0 ) , KOL UO ) , KCRA 1 10 ) ,K CR C < 10 > , * MAX , INC 
REAL KCr'RF »KAPRF 

K7 =K7 YP f < I ) 

gc Tr; 11000,2000 ,?.oco), kt 


PART THROUGH C&ACK 

1000 K7=K7YPr(2) 

go 7o i io?o,iG4C,i06o,iceo,i 100 , 1 120 , 114 , 0,1 me, it to, 1200 , 12 20 , 

1 1240, 1260,1280, 1J0C, 1320, i:««,0>, KT 


C 

C 

C 

1020 

1022 

1C24 


C 

C 

C 

"1040 

• 

c 

c 

c 


PTC 0 1 - CF NT t R CP/CK 

IF (C) 1C2*,, 1022, 1024 
C*l.E-?0 
B=A*IN1 CA,C T 
F> = 5CP T( P1*H ) 

AOVC«A/C 

F EUR- Ft INF 1( Al'VC ,2 1 
F p F F UNP 1 ( AFVC ,1 ) 

FC = f *F SUP/SCST (COM °1*C/Wl ) 

Wl = A/Tt 

W2 '= .OP°*W l-*?31b*Wl**2-,3F7?*wl **3 *5. 2R*Wl**4 
*2=4?-^. i. 1*4 i *»*«*• 233*41**6 
Wl=A/( 2.*C) 

F A * 1 . 1C' -V. !4?*Wl *4 l.*-A*Wi**2-8A, <> A*Wl**346*.. *♦* 

PM 2- <W2*rA/.*G2 ) ♦ 1. 

PHl2sPH12Ml. ♦ .12*<l.-Vl)**2) 

FAsR^FDFP^P*-'^ 

GO TO 4000 

PTC 02 - NO COMPACT CMCK FOR PARI -THROUGH 

WRITF (6»6CG2) 

MOP 

PTC 0'i - SI MC L f CCRNFR CRACK AT HI LF 


1C60 CONTINUE 

R = A*1TNI » A,C ) 

F A= 5 CRT ( F l*b ) 

FF = 1 .2 133-2 .?f r >*(C/ (C *440) » ♦.64 r l*|C/(C4RAnM **2 

F R* F X P I F G ) 

F 5 1 =7 ?1*RA0/W) 

F A = r fl*:(>P7 < U 1 Mr B 
AT YC= A/f 

FSlsFUNPl f A r VC,1) 

FS2=FUNP1 CAOVC ,?> 


D-45 


p 


o or, roe! n 
OOOoOOl-J 
occoor.30 
oocooo-o 

OCCOOC-NC 
00000060 
0000007(1 
000000 60 
00000040 
00000 If 0 
0CC0C11 c 
00000120 
Of 000120 

ooooomo 
or»oooi‘.r. 
0 00001 (0 
CCf C~1 70 
OFO(ifll f <) 
OOOOM '■*0 
00000200 
oco rr ?ir; 
OOOOC22C 
OCOCO 2'*f 
00000 2 
00000 ? r ( 
00000 2«-*0 
000f r >27f 
0 0CC02 r 'C 

occccr*>c 

00000300 
00000*10 
00000 32«» 
00000? 30 
ooo70"-n 

r 'cccr i* o 
oor?o3<o 
oooro?7f 
000*of.^p<» 

or ooo ? 4.o 
occco-oo 

O^OCO-IO 

000004 20 
000004 '.(• 

occro-^o 

occor*.so 

oc-roo-^,o 

0C0*'0<-7i; 
0 0000 ip o 
oooooiwr. 
FCOOC r or 

oooof'ir 

0 0000 c 20 

ooocr* *. (' 

Off OOfiO 

0 roof.*.* n 
roof r. r af, 

00C00570 
0 COCO 0 
OOC 'OF 4C 
Of 000600 


1 


non t i o o o » ? i o n o 


FA=FA*FS 1 

F C= P I * ( C* 2 • *8 AD ) / ( 2 •* ( W-C > ) 

FC'SQRTl 1 ./C 0 S (FC))*FB*SORT(PI*B)*F 52 
GO TO 4000 ' 

C PTC Oh - DOUBLE C CR NEP CRACK AT HOLE 

C 

10*0 CONTINUE 

B=AMIN 1 ( A,C ) 

s*e 7 tc**ADr 

FB=EXP< 1.21 33 - 2 . 0 B 6 *S*. 8727 *S*S 1 
f A= SORT < l ./COS ( PI *R AD/W 1 »*FB 
AOVC=A/C 

fsi*fumpi (aovc,i» 

FS 2 = FUNP 1 (ADVC* 2 ) 

FA=FA*FT1 *50*7(7*1 *B f ~ 

FC=SQRT (PI*B)*SC«RT( l./COS(Pl*(C*RAD)/H) )*F 8 *F £2 
GO TO 4000 

PTC 0 *> - SINGLE INTERNAL CRACK AT HOLE 
l ioo ccNTiwr 

8 =AMIN 1 ( A.C) 

FC=$ORT (PI* 8 )/l.i 22 
FS 6 *C/IC 4 «<AD) 

FB=EXP ( 1 . 2133 - 2 .' 05 *F $ 6 * . 6451 *FS 6 ** 2 > 

FC = SQRT( l./COMP] ♦ ( C* 2 . *RAO )/(?.*( W-C >) ))*FB*FC 
- A 0 VC=A/C 

FS 6 -FUNP 1 IAOVC / 1 ) 

FS5*FUNP1(A'VC,2) 

FC* C C ^;,6 

FAsbORTf PI*B)/ 1.122 

FA=F 9 *FA*FS r >*SQPT( l./COS(PI*RAO/Wl I 
W TO 4000 

PTC 06 - DOUBLF INTERNAL CRACK AT HCLP 

1120 CONTINUE 

B=AMIN 1 (A,C> 

' FC*SQRT(P1*B»/1 .1?? 

F» = FC 

S=C/( RAD+C ) 

FB = FXP ( 1 . 2133 - 2 . 086 *S*. 8727 *S *5 ) 

FC=SORT( 1 ./C 0 S(PI*(C+RAD)/W))*FB*FC 
AOVC=A/C 

F? 6 =FUNPHA 0 vc,n 

FS 5 =FUNP 1 ( AOVC» 2 ) 

FC«FC*F $6 

f A=F ft* F A* F$ 5 *SQRT ( 1 ./COS ( PI *RAD/W M 
GO TO 4000 

PTC 07 - INTERPOLATION MCDFL - PART-THRCUGH CRACK 

IIhO F A=SCRT(P 1 *A| 

FC= FA 
NT = 0 

1142 NT=NT *1 

“ CALL INTP(NT,C,A, 1 ,FCC) 

NT=NT *1 

CALL 1 NTP(NT»C*A» 1 » F A A ) 
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00000820 
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oocooveo 

0000099C 
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00001020 
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00001060 
00001070 
00001080 
00001040 
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000011 10 

00001 120 
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00001140 
00001150 
00001160 
00001170 
00001160 
00001190 
00001200 


woo 


FOFf*rCC 

F (eFA*MA 

It (f'T-NKTMX*?) 11F2,*.000*A000 

PTC OP - PI* LOAPhO LUG* SINGI* CrRNER CRAC* 

1160 Z = (C*2.*RA0)/?. 

F=C/?. 
r =w/? . 

PP*<3-E 

FS1=2.*Z/H 

FS?= 7 /BP 

PMC P*FUNT If FS2) 

PMC D *PMC p /S<. R T ( 1 ,-FS? ) 

P*-HP*1.-. 08*M1*2. 6P*FM**2- .%9*F' 3 

PHV P = 1 .-.5*F r 2-». < *57*F 52**2-.l#»»f S?*»3 

PHWP=PHHP/S 4 P 7 ( l.-F S? 1 
P*'P = ( PHCP-»PHHP*PHWF 1 / 2 . 

Php=Php*L 0RT( 1 .♦ (7*E»/(Z-f »/*.» 

PHC <S F IIPT?( FC?) 

PHCi=PHI' j/C< KT< l.-F 12 ) 

PHS F = FONT 31 FT 1 ) 

PriS* = PHSS»SU Tl 1 ./CDS I *!♦//« 2.**P ) ) ) 

S=C / ( C ♦PAD) 

Fp-^XP (1.21 13- 2.?ft *14.^4 •'I*!* 51 
phs= ( pmc s 4P»'«- s)*f /r. 
f CR*PHS*£ORT |PI*C )/ 12 .*W*TH | 

FC = FCP*PHP*:C9T( ( '/-£ I ✓ < 7 ♦ C > I /SORT IPI*Z I/I?. *TH) 

01 = AM INI ( A.C ) 

Arvc= A/C 

► S2*FUNP1( A.'VC ,2) 
r CM (PI *C'l 1/SCF T(Pl*f ) 

FC = f C*F 12 *FS*. 

?- (o ?.*»An)/?. 

E*C/2. 

B=w/2. 

PP=t\-fc 
FS1 =2 .*?/H 
F F 2 =P AD/P 
PUCP=FUMT1 ( F?2) 

PhCP=PHCP/S«-R 7( 1 •— F i 2 > 

P HHP= 1 . 0 E * F S l* 2 . 6 <**Ff M **3 

PHWpii S 2 *.°E 7 *F > 2 ** 2 -. 16 *FC 2*»3 

PPWP = PHwP/S('CT( l.-F i? ) 

PHP= ( PHC°*PHHP*PHWP 1 / 2 . 

PHCS*FUNT?(Ff?) 

P(<CR=P* J C c /Si , PT( l.-F*?> 
phsssfuntiipfi ) 

pmss*ph«‘s*Sv».t( i ./ c ( s( f> i*PAc/( 2 m 
s=c/(c*RAn» 

PF = CXP( 1 . 2l^3~2.2(*f *£ •».64 t l*S*$ I 

PHS= ( PHCO +PHSS ) *FR/?. 

F C p =i*M * SC‘R T ( P I*C » / ( 2 .* **TH ) 

FCP- c CR-*PHP*SC«TC ( Z-F) /IZ*F n /SC»R T ( Pl*z )/(? .*th ) 
F('sFCP*tCFT(l .♦( Z*1 >/l 2-F I/O .) 
ft- F*rK'Pl(ACVCtl) 

F A-F C*F A*F $4 

on T °- fooo 
c 

C PTC 0** - PI* LPAOtO IMRf TWC CCRN C R CRACKS 
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' °°« q&e 




oooo i r i r 
DOOM 27 (I 

orpc l r 
oror 1 7*-r 

COCO] ? c 0 

0 0001 ?f.P 

00001 2.70 
004*0 1 ?F C’ 

of or i; ") 
00001200 
0 0001 MO 
00001320 
0000 1 ??.ft 

ooof i :-mj 
ccroi 3 c r 
or 30i v.o 

0 0001 '*7 0 
000017 

00*. M °* »* 

ccroi-; c 
o o r o i •'« « o 
rrc *>i o 

ooooiA ;* t 

0000 > *» ** o 
nr f oi*.? o 
orooiAf.o 
OCOP 1 47 C 
oonoit; 0 

00001 MO 

0000 1 t(*0 
OCOOlo 10 
00001 r .?G 
00C r l '• <■ 
OfO 01 04 v' 
OOOM 11 o 
OOuO * < • 

0PC01* 7f 

nr pot s c o 

OOOOl OVC 

oro^i oco 

00(*01 MO 

oocci* 1 -:*. 
oooo ; mg 

0 viroi t.^o 

00001 6*0 
OOf.r.l 6 6 0 

ocr.o 1 67r 
oor.o*. 6» r 
00001 / 

OCSOI7U0 

00001710 
nr or 1770 
00001 770 
OuOOl 7*-0 
000 01 7 EC 
0 00 Cl 760 
00001770 
00001 7P0 
C C PC I 7 C C 

ooco: pcc. 


neo b*w/? . 

Z = RAD*C 

“>hCp=fun7 1(2/67 
F SI =2. *Z/W 
F?2 = 2 •* 7 /H 

PHCp=PHCP/SLRT( l.-FSl) 
PHWP=l.-.5*F$l+.957*FSl**2-.l6*F$l**3 
PhWP=PHWP/ SORT 1 1 # — F SI > 
PHHP=l.-.08*FS2*2.69*FS2**2-.91*FS2**3 
PHP = (PHCP+PHVIP*PHHP )/2. 

PHCS = FUNT2( Z/R) 

PHCS=PHCS/SORT ( 1.— F SI > 

PHSS- F UNT 31 PS"* 1 

PHSS=PH5S*$CfR7(l./CC$(Pl*Z/wn 

S*(T/IRaD*C>" 

FB=CXP( 1.21 33-2.066*5 +.8727* S*S> 
PHS=(PHCS*PHSS)*F6/2. 

FC=1.05*PHP/(2.*TF*SORT( PI*Z1) 
FC=FC*Prt$*SO«T(PI*C )/(2.*W*TH) 

AUVC=A/C 
DUAPIN1 ( A.C) 

FS2=FUNP1 ( Af VC,?) 

FS9=S0R7 I P I * D 1 )/SORl(PI*C ) 

FC = FC*F S2*FS A 

B=W/2 • 

” Z=RAD*C 

F S 1=R A D/R 
PHCP=FUNT 1 ( Fil ) 

FS2=?.*Z/H 

PK P=PHCP/SORT (l.-FSl) 

PHWP=1 .-.5*FS1*.957*FS1**2-. 16* FS 1**3 
PPWP = PhwP/$hRT( l.-FSl ) 

PHH P= 1 • — . 08 *F S2 *2 • 69*F S2* *2 — .91 *F S2** 3 
PPP=( PHC°-*-PHWP*PHHP )/2. 

PHC S*FUNT 2 ( F SI ) 

PHCS=PHCS/SORT( l.-FSl ) 

PHSS=FUNT3(FS?» 

P hS S= PH S S * S OP. 7 ( l./CPS ( P I *P. Ap/W ) ) 

S=C/(PAf)4C) 

F6 = EXP(1.2133-2.0t'6*S-».8727*S*S) 

PHS=( PHC S* PHSS) *FR/?. 
F0=1.05*PHP/(2.*TH*SCRT(PI*Z) ) 
FO=FQ*PHS*SORT(PI*C )/ ( ?.*W*T H) 

FA=FUNP1 ( AOVCtl) 

F A- FO*F A*FS9 
GO TO 9000 

PTC 10 - PIN LOADFO LUG. SINGLE INTERNAL CRACK 

1200 Z= (C+2 . *P AD )/?. 

F*C/2. 

R=w/2. 

BP=B-E 

F S 1=2. *7/H 

FS2=2/BP 

PHCP = FUNT1(FS2) 

PHCP=PHCP/SPRT( 1.-FS2) 

PHHP = l.-.0R*rSW.6O*FSl**2-.99*FSl**3 
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00001620 
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00001660 

0000 n* 70 
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00001P90 
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00001910 
0000 1920 
0C001 930 
000019«*0 

00001 9 C 0 
00001960 
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00001980 
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000020CC 
00002010 
00002020 
00002030 
00002090 
00002060 
00C02060 
0 J0G2070 
00002060 
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00002100 
00002110 
00002120 
00002130 
00002190 
00002160 

00002 160 
00C02 1 70 
0000? IPO 
00002190 
000022CC 
00002210 
00002220 
00C0223C 
00002260 
00002250 
00002260 
00002270 
0C0G228C 
00002290 
0000? 300 
00002310 
0 GOO 2320 
00002330 
000023-0 
00002250 
0000?’ 60 
00C0 2 370 
00002380 
0 0002 390 
00002900 


c 

c 


c 

l ??0 


ohwp = 1 .“•‘'*F*24.0«'7*FS2**?-. IA*F$?**3 
P, w^r P<-v,P/s.jF It \ ) 

»*wO=| PHCP 4P*-*HP*FHWP)/2. 

p = r h P * f. C‘R T I 1.4t?*t »/I7 -U/v.> 

PHf.i = ti‘MT2 |Ft?> 

*»► C c = PMr.S/SwPT< l.-F 5? ) 

PF ) 

r , K5;=PhcF*SMvT( 1 ./C( St p I*7/» 2.*«P > M 
5 -c/tc^PAp » 

F h= r X P l j . 2133-2.2 0F*‘^.6 h c 1 * S*b > 

PI <=( PMC 1 4HM$F)*Ff</r. 

PC P- PHS^St R I (PI*C)/ <?.*W*T h » 

FC=FCf 4PPP*‘-CPT ( ( 7-f )/»/4E) »/rC9TtPI*7|/|?.*lH» 

r>l = AMNi I A,C ) 

ACVCsA/C 

F : -= .CKT (PI*r 1 )/fCPT<PI*C ) 

r AsFuKPl ( AOVC fl ) 

FCs-*r*PA/i.i?2*r« „ 

if = ( C ♦ 2 .*°ADI/?. 

l*=c/2. 

r.-w/? . 

hP=F-c 

FS1=2. *Z/M 

F <2=PAn/b 

pmcp=fhntiif c :'I 

PHCPsPHtP/iCFTI 1 .-f; ?) 

PKHP-i i**2-.«;R*f 51**3 

omP=l f 2 4.G‘»7*F * 2**2-. l**r $?**? 

PMWP=Pwv'P/SrPT< 1 • — f f 2 ) 

PHP = < PMC p 4PHMP*PF wP 
PHC 5-F »IM T 2( Pf ?) 

PpCS = P* j C5/SwRT( 1 .-F5 2) 

D HS b = F IJN7 3 1 P ! 1 > 

p H rr-p H rc *SC.n7 tl ./CT5 t p T*RAC/t ? ,*P )) ) 

^ = C / t C 4-F A f ) 

FprCXPI 1.213? -?.?•■»? ; *f4.6A--»l*5*? > 

PttSM P*-C c 4PH2 S)* p b/2. 

p C p = cp<r»j pRT(PI *C. )/ ) 

P C n = t CP 4p pp»* OB T ( t Z-F ) / ( Z 4<5 ) )/ : >fR I t P 1 *Z )/ (2 .*fh ) 
FC*rr.P*-« --T (1.4f74r)/(7-r)/^.) 

F A * f * *N P 1 1 #twC tPi 

FA*FT *FA/I.l 22 *rr- 

GC To **CCC 

PIC 11 - PIN ICAOhC* llir.« 7wn lN7ct*iAL CRACK l 


b=W/2. 

7 =RA r, 4 C 

PWCP-FHK’T ] I 7/P ) 

» 51 =2. *7/W 
F r ?=l • * / /H 

PrCP = PHC°/SrRT ( 1 . -r M > 

PHF'P- 1 >*F Si*.*- ••7*csl*»;-.TA*FSl **3 

PHWO = PMWP/il«-7f:.-Fri ) 

P»R-P= l.-.Cft*F S?4?.*,Q*«- 57**2- ,M1*F52**3 

P} P = |PHCP4P**-»P*PM»'P )/:. 

PMC5- FUN7?( //b) 

f>HC: = PMCS/5,CF7» 1 .“ p 51 ) 

Pm<,..sFI!N7 30 !?) 

PHR5rPMfS*SClTll ./CrSfPT*7/WM 
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OO ft 


S=C/(RAO*C ) 

FB=FXP( 1. 2 133-2. G06*S4. 8727* $*S) 

PHS=(PHf $*PH<S)*FF/2. 

FC=1.05*PHP/( 2.*TH* SORTf PI*2‘) ) ' 
FC=FC*PHS*St)RT(PI*C )/( 2.*W*TH) 

0!=AHINHA,C) 

A rvc= A /c 

FS*=$0R1 (PI *01 )/ SCPT IP! *C ) 

PA = FUNP1 | APVf.,1 ) 

FC = FC*FA/l.l?2*fSii " 

c 

B=W/2. 

Z=RAD4C 
f S 1=R AD/8 
P HC P= FllNT 1(FS 1) 

FS?«2.'*Z7H 

PHCP=PHCP/SORT( 1.-FS1 ) 

'PHWP=l.-.5*FSl4.94 7*FSl**2-.16*FS!**3 

PHWP = PHWP/SUtn (1.-FS1 ) 

PHHP=1 .-.C8*FF2+2.BO*rS2**2-.Pl*F 52**3 
PHP = (PHCP-*PHHP*PHHP )/2. 

f»HCS = FUNT2( F51 ) * 

PHCS=PHCS/SOF.T( 1.-FS1 ) 

PHSS=FUNT3( FS?) 

PHSS=PHSS*SORT( l./COS(PI*RAD/W) ) 

S=C/(RAD-»C) 

FR«FXP(l. 2123-2.0 86*S ♦ .0 727*S*S ) 

" PHS=(PHCStPHS£)*FB/2. 

FC=1.05*PHP/f 2.*TF*SQRT(PI*Z) ) 
FO=FO*PF$*SOPTtP!*C )/( 2.*W*TH) 
FA=FUNP1(A0VC»2) 

FA=F0*FA/1. l?2*F$4 
GC TP 4000 

PTC 12 - SINGLE CTRNFR CRACK AT SINGLE NOTCH 


1240 B = H 

FS2 = .752 + 2.0?*( (R+C >/W) + .37* ( 1 .-SIN (PI* ( B*C 1/2. /W 11**3 

F W-FS2/CC S(PI*(B+C )/2./W)/l .122 

FW=FW*$ORT< w*2./PI/lb4C)*TAN<PI*(D*C l/W/2.) 1 

FS 1 =R AO/8 

IF (FS1.lT. .01) TO TO 1242 
S=C/<B*C> 

FC sFUNT* ( StFSl ) 

FC=FC*Fw*SORT(PI*C ) 

" GO TO "12*4’** " " ‘ " 


1242 FC = 1.122*S0RT(B*C )*FW 
1244 APVC=A/C 

D1 = A*IN1 ( A*C ) 

F C=FC*$(jRT (PJ *D1 )/SORT(PI*C )* FUNP1 ( A OVC » 2 ) 
C 


F ^2 = .75242.0?*(B/w) + .37*( l.-S IN (PI*B/W/2. )) **3 
FW=*-S2/C0< (Pl*B/w/2.)/1.122 
FW=FW*S0RT(W*2./Pl/C*TAN(PI*B/W/2.) ) 

F S 1 =RAD/B 

IF (FS1.LT. .01) GO TO 1246 
S=C/R 


FO =FIJNT4(S,FS1) 
FO=FO*FW*SO«T(P1*C ) 
GO TO 12*8 
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0000 3 ’ 10 
00003520 
00003530 
000035*0 
000034*0 
00003*60 
00003 4 7C 
0000 3580 
00003540 
00003600 


non , non 



12**6 F()=l. 1??*SQPT (B )*FW 

F A = FO*SURT( PT*01 l/SCK T( Pl*c » U I :*> 1 (APVC *1 ) 
r-n tp 4*000 

PTC 1? - DOUBLE CPRNEP C*>ACK AT DlUBLfc NOTCH 
1?6C B=H 

5/42.02 *( I R ♦C )/ ( w/ ? • ) ) 4.17* I l.-SlN(Pl*tMCI/WM**3 
FW=F52/C0S(Pl*(?4r )/wl/1.122 
FW=F w*SPPT( w/P I/( F.4C ) *TAN(P !* CB 4C l/W) ) 

F SI =RAD/5 

IF If Sl.LT. .01 ) CP TP l?6? 

S»C/ lfi4C ) 

FC - F L'N T4(S»FS1 ) 

FC = FC*FW*$Q*T(Pl*r ) 

GG TP 1?6*4 

1262 FC=1 .122*S0RT IB4C )*rv 
1264 ArVC = A/C 

P 1 = A V 1 N 11 A , C ) 

FW« (1 .4.1 22*1 COS 1 PI * ( P+C )/W ) )a#h)*CC SJP1*<P4C )/W) 
FOFC*FW/FS2 

FC = FC*St»PT( Pl*r»l )/<PPT (P1*C )*FUNPHAnvC »2) 

FS2*. 75?4 ?.()?*( fi/l W/2. ) )4.B7*(1 .-< 1 7: 1 PI *b/W ) ) ** ? 
FW=rS2/CCSIPl*B/w)/1.122 
F W = F w *SC-F T U/P I /F *7 AMD l *r./w) ) 

FS WAD/E- 

IF (f si .IT. .n ) GP Tl 1266 

s-c/r, 

FC =Ft»NTw(S,F‘ 1 ) 

FQ = FO*Fv.*;iORT(PI*r 1 

or rr i?6s 

1266 FC-=1. 122ASCFT IB )*FW 
1268 CCNTINUr 

fw= ( 1 . 4 . 1 ?2*(C*i <n»nAj) >***.) *c.'S< pi *?/w) 

FC*FO*FW/»-S? 

FAsPO*S«.'RT(Pf *01 )/iPP.T |PI*C )*MINP) (A PMC .1) 

CP TP 4.CCC 

PTC 14- - Sl'.r-lf 1 N T F R • a L r.DAfK AT SINGLE NOTCH 

1280 B=H 

F* 2 -.7 e 2 42. 02* I CP4C1/H1 4.37*11 . -SIN (P I* I B*C )/►’/?.))**? 
FW*FS2/CPSlPI *IMC )/W/?. )/l.l 72 
FWsFW*SCBT( V*2./PI/ti *CI*TAMPI*n 4 C l/W/2.1 1 
FSl=RA0/e 

IF IFS1.LT. .01) GP TP 128? 

S-C/f p4C) 

FC =Fl’NT*,(S»Ffl ) 

FC*FOf fc*SU*'TI P 1*C ) 

GP TP l ?F 4 

1282 FC=l.l??*5UFTlB4t)*Fw 

1284 APVC = A/C 

01* Am 1 M ( A,c ) 

F C=FC*SPF T (PI *n )/SC*M (PI*C )* FUNP1 I Afvc ,1) /I .12 2 

c 

F5?= .7524 2.0/* T f /W)4.-»7* 1 1 . -S 1 N |P 1 * : /W/2 . 1 ) ♦♦ » 

F WsF S 2/CP J>( PJ*B/W /?•)/!. 12? 

FW= F W*SCRT I ** 2 • / c I /F»* TAM PI * 8/w/? . ) ) 

F S 1 —0 A P/P 

IF (F51.LT. .01) r.p Tr 12B6 


P( 06*461 0 

0 C r o * 6 ; c 
Of CO 1 6*0 
OCC 036^0 
00C * T6 r O 

oro^'^660 

0 GOG 3 670 
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OCOVW 4 c 
CCOC' 37< f 
00003 71 0 
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0 0C03720 
0000 37*40 

ccr C . 7 7*>0 
OfOOTVf.f 
0G( f.*»770 
Of 007 760 
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OOC'^fOr 

ooco* r :r 
ocorsf.rf 
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0000‘f-G 
0 0li07 F f O 
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OCCOOoFO 
OGCP’Gv; 
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ocrcT**?o 
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OOGO* 1 ‘*<.0 
00 Of* * f - 70 
Of CC? , *Tf 
0000*7 S« 0 
CCC r 4CCP 
JOG - f 1 
OOOf -020 

oc.ff *r>o 
00r*«.c*.C 

OOO 4.CI..G 
OPPP-CgO 
Ol'OtwOVO 
crrcir; r 
GCl.u*«0*-*0 

or.co- ire 
uouc-iir 

D GOG— 1 ?f> 
OOGO* 1 ‘O 
C C r ' r ‘- 1-f 

0 .0 — 1 1 v* 

crr'-i* * 

OOOC-4. 17. 

nr on- :ro 

00**0*- 1 c i> 

orr.r m ?rr 
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S=C/B 

FQ *FUNT4(S*FSl ) 

FO=FO»FW*SUKT(PI*C ) 

GO ff> 12P8 

12P6 FQ= 1. 1??*SQRT (P)*FW 

1288 FA=FO*SORT< PI*D1 > /SORT < PI*C > *f UNP1 ( AOVC *2 )/ 1. 12? 

GO TO 4000 

C — ' 

C PTC 15 - DOUBLE INTERNAL CRACK AT OPUBLE NOTCH 
1300 B=H 

FS2=. 752*2. 02*1 <B*C)/(W/2.) >♦ .37* 1 1 .-SINf P|*I C*C ) /Wl) ** 3 
FW=6S2/CC$(PJ*(B*C)/W 1/1.122 
— FW=Fw*SCRT(W/PI/(B4C)*TAN(Pl*IB4C l/W» 1 

F S 1 =R AO/B 

JF (fS1#lT# - "tjxi “GO TfTTO2 

$=C/fB*C) 

FC =FUNT4(S»FSi» 

FC=FC*FW*SQRT(PI*C) 

GO TO 130V 

1302 FC*1.1??*S0RT(B*C )*FW 
*1304“ AC VC = A/C 

0 1 = AM INK A»C ) 

FW= ( 1.4.1 22*1 COS ( PI* <P*C)/W) )**4)%C0SIP1*CB4C >/W> 
FC=FC*FW/FS2 

FC=FC*S0RT(PI*D1 )/SOPT(PI*C)*FUNPl f AOVC *11/1. 12? 

FS?=.7 52 *2.02*1 B/(W/2. ) >4.37* <1 .-SIN I PI*B/W > 1**3 
" t-w=FS2/C0Sn > I*B/W)/1.122 

F W=F W*SORT ( W/P I /B *T AN ( P !*B/W ) > 

” F$1 =RAD/B 

IF (FS1.LT. .01) GO TO 1306 

S=C/P 

FO =FUNT4(S,FS1 > 

F0=F0*FW*S0RT(P1*C ) 

GO TO 1308 

1306 FG = l.l22*SQRT(B)*Frf 
1308 CCNTINUF 

FW=( 1.4.122* ( CPS ( PI *B/W ) )**4)*C0$(PI*B/W) 

F0=F0*FW/FS2 

F A* f 0*Sl'R T( P1*0 1) / SCP T ( PI *C) *FUNPl (ACVC*2)/1.122 

GO TO 4000 

c 

C PTC 16 - CORNER CRACK PUT OF SHOULDER 

C 

1320 B 1= ( W— H ) /? . 

' *l=C/(C*f 1 ) 

FC=W/PI/(C*B1 )*TAN(P1*(C*BI )/W) 

FC*Sl}RT ( FC ) 

FC=FC* (1.4.1??*(CrSfPI*IC4Bl)/N>)**4)/1.122 
FC=FC*SQRTfPI*C )*FUNT4(S1,C1B1) 

A OVC = A /C 

•' ' D1 = AMIN1( A V C> 

F C =F C * SC R T ( P I *0 1 )/SORT(PI*C>*FUNPll AOVC *2 > 

Bl=( w-H)/2. 

SisC/Bl 

FW=W/PI/B1*T AN(PI*B1/W> 

FO=FO* (1.4. 122*(C0S(PI*B1/W) )**4 ) 
f 0=FO*SCRT(P1*C)*FUNT4( SltClBl) 
FA=f04SORT(PI*D1>/SCRT(PI*CI*FUNP1(AOVC.1) 

GO TO 4000 
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ccco«. 2 in 

00004 220 
00004220 
00004 240 
00CC42 r 'C 
00004260 
OCC04 270 
00004200 
0000*240 
00004300 

ooccoir 

00004320 

00004330 

0000*3*0 

0O0C-3S0 • 

00004 360 

00004370 

0000*360 

000043V0 

00004400 

0C0C441C 

00004420 

0CC04430 

o 0C0444C 

00004440 
00004460 
00004*70 
00004480 
000044W0 
00004500 
00004510 
00004520 
00004630 
0 0004 54 0 
0 G004550 
00004560 
00004 570 
00004580 
000046^0 
00004600 
OOC04 610 
OC0G«.6?O 
00004 630 
0 0004 64a 
0000*660 
0 000'. 660 
0000*67C 
0000*660 
0000 4 6P0 
0000470C 
0000*710 
00CC4720 
00004730 
0000*.740 
00004 760 
0000*760 
00G0477G 
0000476 0 
00004790 
0C004B00 


PTC 17 - INTERNAL CRACK OUT C'F SHPUIDFR 


13AO B 1 = f w-H )/? . 

S1=C/«C4B1) 

FC=w/PI/«C*«i )* T AN ( PI* (C l 1 /W) 

pr= c 0 RTf rc ) 

FC*FC*U. ♦ . 122* ICC SI PI* (C*B1 >/W)) ♦*-1/1,122 
FC=FC*SCPT(P1*C )*FUNT-ISl*Ciei) 

AfVC= A/C 
P1=AYIN1 I A, C) 

FC = FC*SCR1 (PI*D1 ) /SC RHP I AC >*FUNP1 | ACVC, 1 ) 

3 1 * ( V»— H 1/2 • 

S1=C/FU 

F C = W/PI/B 1*TAN(P I *Bl/rt » 

FC=FO*( l.«. 12 ?»icrsi°l*f> 1 /w > >** 4 ) 

F C = FC*SCFT<»1 *C )*FUNT^ISl»ClBn 
F A=FO* I OR T ( P 1 *"1 )/SC c l|PI*C )*FUNP1 I ACVC ,2) 

GO TO ^CCO 

C 

C TRANSITION CPACK 

C 

2000 CHOLOsC 

C=(C*CB)/2. 

C 

KT=KTYPE (2) 

GO TC <30?0**»040, ?0 AO 1 30 SC ,3060 ,3030, 31 AO* 3 16 0 , 3 IfiO ,3 lfcO,* 1 .*!*, 
1 32-0 *3 260* 32 AO *3/ 60*3320*3320) * K.T 
C 

21C0 C=CHPLD 

FA=1.-St*r TC1.-ICP/C )**2 ) 

FAsCB/fC»FA) 

F A=SCRT (F A )*FC 

on tc -coo 

c 

c THROUGH CRACK FC-MATICN* 

C 

3000 KT =KTY PF I 2 ) 

or TO ( 3020, 2 0-0* *, 060*306 0 , 3060 , 3< ^O f 31<.C,3l60 t 31F0,31o'VMf 0* 
1 3240*3260* 3?AO*3 ?60* 7??0 *3320 ) « M 

TC 01 - CTNTFF CPACKTr °ANFL 


3020 Z = PJ*C 

0= SORT C? ) 

Z = COSIZ/H) 

Z = l./Z 
7 = bOPl(Z) 

FC - 0*7 

FA = 0 

i*- (i/typc m.co.? ) it t> nor 

f.n to AOCO 

c 

C TC 02 - COMPACT C .PECI* C N 

C 

30A0 = C/K 

W2 = SPRT(Wl) 

FC = 2 r >.f'*h? - 1 K 5. f*Wl *W2 

W? = W2*W1*U1 

FC = FC ♦ cC6.7*w? 




000 ( 

0 DC r '*- c . * 
0000 *. c * • 
OC'00-.F-n 
or.ftf F* ri 
OCC Ct £ 60 
OCOC-f 70 
OOCC6 CJ-0 
no( 0-890 
0 OC‘0^- c 00 
(>0('0“ C, I 0 
Of CC-4>0 
C 0004,03c 
0CC2A440 
0C(:.-96O 
OOCO-^OO 
orr r '.. * 7 m 

crcjv 6 > o 
0 000 -*• 60 
? * 0 ~s cr- 
one, osm . 
000060**0 
OOOO c O' • i 

pcgc-scac 
CCCC sc* 0 
OOCO r OFC 

o ooo K 0*73 
or or 6 o< o 

00005 0 * O 
0CC0S1CC 

or 005: i r 

CCC2512C 
COO*'*: 1 ?C 
OOCO C k*-0 
0 G 0 r >5 1 2 0 
OCC** 5 160 
00C0S7 ro 

ocooru r 

Q'lOO* l*- 
OCOOS ?f;0 
000OS2U 
OCC05?'0 
0 GO 05? 30 
COCOS 2-0 
OOC^S 200 
C 000 r 2* 0 
nr f.n *? 70 
0 C 00 5 2 • C 
oorc •./•*( • 
ooor c ' * r 

O i'ii i( ,r > 't’ ii 
0 0005 320 
00005330 
?C r r r '*.3 
O ( r*« *. >.( 

nr or* s 2 or 

00006 3 #r, 

or e os- ■•n 

noers vc 
cores- or 


017.0* w2* i.l 


rvor> non , non , i 


w 2 = w 2*w l *wi 

FC c FC ♦ 618.*) * *2 
FC = FC/TH 
“"WT"i F C ' : OR T J W ) 

FA e 0 

IF IKTVPF (1 I.EQ.2 ) GO TO 2100 

GC TO *000 

TC 03,05 - SINGLE THOUGH CRACK AT HOLE 
1060 «=C/«R ALHC) 

FB=FXP( 1.2133-2.205*S4.6451*$*S> 

FC=CPS< (C *2 «*R AD) *PI/ 12»* IW-C) ) I 
FC«<0RT( l./FC) 

FC = FC*S0RT(PJ*C )*FB 
Fa=0. 

IF (KTYMtll UFO. 2) GO TO 2100 
GC TU 4000 

TC 04,06 - DOUBLE THROUGH CRACK AT HOLE 
>080 S = C/( RAP+C) 

FB=FXP <1.2133-2.066*$*.B727*S*S> 
FC*C0S<PI*1C*RADI/W) 

FC = SLRT ll./FC )*Ffi* SOFT ( PI*C I 
F A = 0 . 

IF (KTYPfcll I.EQ.2) GT TO 2100 
GO TO 4000 

TC G7 - INTFRPPLATirN MODn - THROUGH CRACK 


> FC = SORT ( P!*C > 

CALL 1 NTP f l* C * A* l * FCC ) 

‘ FC=FC*FCC 
FAsfi 

IF (KTYPFU) .FQ.2 ) GC TC 2100 
GO TC 4C0C 

TC Ob, 10 - PIN LOADED LUG, SINGLE THROUGH CRACK 

3140 Z = (C*2.*RAD>/2. 

F=C/2. 

e=w/2. 

Bp=B-r 

F S 1 =2 • *Z/H 

FS2=Z/BP 

PHC P = F UNT 1 ( F5 2 ) 

P HC p= PHCP/SCP T ( 1.-FS2I 

PHHP = 1.-.08*FS1 ♦ ?.6 t **FSl**2- .99* FS 1** 3 
PF*wP=l .-.5*FS? ♦.9 57 *F <2**2-. 16*F S2**3 
PHW p = PHWP/SUKT U.-FS2) 

PMP = ( PHCP + PHHP*PHWP )/? . 

php=php*sort u.*f z*e)/iz-fi/9.) 

PMC 5. = FUNT 21 FS2 ) 

PFCS=PHCS/SCHT f 1.-FS2) 

PhSS-FUNT 3( FS 1 1 

PhS S= PHSS*SQRT ( 1 ./C0SIPI*Z/(2.*HP U) 

S=C/ (C+RAO I 

FP=EXP< 1.2133-2.2 05*$-».64 5l*S*$) 

PHS=( PHCS-*PHSS)*fb/ 2. n ... 


00005410 
00005420 
00005430 
00C05shO 
00005450 
000054 00 
00005470 
000054^0 
00005440 
00005500 
0000551 C 
00005 520 
0 00055^0 
000055*0 
00C05550 
000055O0 
00005 4 70 
0GGC55PG 
00005550 
OGOG56CO 
00005610 
00005620 
0000 * 630 
00005640 
00005650 
0C00566O 
00CC5 67O 
00005680 
OOOG569o 
C000570C 
0CGC5710 
0CCC5720 
00C05730 
000^4 740 
00005750 
0 000 4 760 
0C005770 
00005760 
00005740 
00004 bOO 
00005 t 1 0 
0 COO 5 L 20 
00005630 
000056 40 
OOCC’5 650 
00005660 
0C00567O 
0CCO566O 
0C005690 
0C0O590C 
00005610 
00005920 
00CO5 93C 
00005940 
OC 0C5 t *50 
00005960 
00004670 
0C0054B0 
000 C 599 C 
00006000 


• • 


r ~ 




fr.P=PHS*Sl)PT f Pi*r >/(2.*H*TH) 

00 6r./.ft * r- 

i 

FC*FCP4PHP*SQRT( ( 2-F)/( Z4p) ) /SOFT( PI*Z )/( 2.*TH) 

ccrr hr. « r 


F A= C • 

OC CO 60 30 


IF (KTYPE(1 1.F0.2) GC TO 2100 

f COC 6C-.G 


GC TO 6000 

ocnooo* o 

c 


00006060 

c 

TC 00,11 - PIN t GAPED LUG, DOUBLE THROUGH CPACKS 

000*. 6,0 70 

• c 


occoftcrr 

MHO 

b=W/2. 

OCOf 60‘*n 


ZsRAD^C 

9C-CU 1 Of 


PhCP=FUNT il Z/B > 

OCO.* 6110 

* 

F $ 1 =2 . * Z/»f 

of or m ; c 


FS2=2 .*//H 

OOOC M3 0 

■* 

PMC o=PHCP/ SOFT Cl.-F SI ) 

of cr* i*o 


PHWP=1 .-.f*FJl*.VS7*RSl**3-.16*FSl**3 

GGC061 r 0 

• 

PHWP-PHWP/Sl PT (1 .-F SI ) 

30006160 


PHHP= l.-.OR*F *?■*?• 69*F « ?* *?- . 9 1 *F S?** 3 

0PCO»*17P 

• 

PHP= ( PH CP 4 PHWP * PH HP )/2. 

OOOuMf f 


PHCF=FUNT2( Z/P) 

o^r r / 


PHCS-PHf s/ SOFT (l.-F SI ) 

or.cco?( o 


PHSf,=FUNT3( F5 2) 

0CCC4??0 


phss*phss*$ckti i./cr<ioi*z/wn 

00036220 


s=c/<rao4C) 

coco* ;• 30 


F P* F* P (1.21 33-2. 0*6*$*. P727*S*S ) 

000062*0 


PHS= ( PHC54PHSS) *FB/2. 

0 00062 f. p 


FC = 1 .u5*PHP/( 2.*TH*iC3T(Pl*Z 1 ) 

0 003 4? Of. 


FC s FC^°HS*SC w T ( PI *C )/(?.* W* T H) 

OOC*f»6 2 TO 


F A = C. 

3CC0.6 2PO 


IF (KTYPE ( 1 ) .EQ.2 ) GC TO 21C0 

G0GCS2V0 

— 

GC TP *000 

CCCCo'iGG 

c 


CO CO 6> 10 

c 

TC 12,1* - SINGLE CRACK AT SINGLE NOTCH 

OOPG»2 / ? 

c 


0 0006 3*0 

•3?**0 

R=H 

OPO r 6'* 0 


FS2- . 7 S.?4 2.0?*l <F ^C )/W ) 4. 37* ( 1.-5 IM( PI* ( B^C )/W/2. )) ** 3 

OfPC^^Sf. 


FW*FS 2/CCS (PI *(F4C l/W/2. )/l .122 

occ-v :>? o 


FWsFW*$fRT( W*2./PI/IB-»C)*TAh (PI»(R*C)/W/2.) 1 

OCOC«,? #0 


F SI = 0 AD/B 

of Go .? ::r ; 


IF (FS1.LT. .01) GP T n 2262 

OOOOF ' r O 


S=C/(F*C) 

00CC4».6n 


FC sFUNT4(SfFSn 

p C*0'*T4l0 


FC«PC*Fw*SCRT(PI*C ) 

O r C •'T-ZP 


GP T p 32*4 

OL‘O' T.4 3f 

'32^2 

FC=1.12/<S0RT(B4C)*FH 

00Of#6*--f 

32*4 

f A = 0 . 


* 

IF (KTYPrn ).rp.?) GO T'; 2M0 

0COO446C 


CP TP tCCC 

00006*70 

C 


CC-COn-hC 

C 

TC 13, IS - ''PUB LI CRACK AT CLUB LE NOTCH 

00006-S 0 

c 


00006*. oo 

1260 

P = H 

OC'CVMC 

— ' • 

F32=. 7 r>2 42.02*1 ( C *C )/IW/C. ) ) 4.37* ( 1 . -5 I N (PI *( P*C ) /¥ )) ** 3 

GPGC6'?r 


FW = rS2/r.CS( D l*(B4r >/W)/l .122 

OZOC.t r 30 


FW=FW*CCRT(W/PI/( t '4C)*TAN(Pl*(B4C)/W) ) 

000065-0 


FS 1 = P. AD/h 

00006 r 6 o 


IF ( FS1.LT. .01) cr Tr ^262 

00006 R Si> 

; * 

S = C/(P*C ) 

000.0 6*. 70 

— ■ 

FC =FUNT4(S ,FS1 ) 

oogcafpc 


FC = FC*FW*SO l> T(P 1*C ) 

CGCf 65«*C 


GC TO 3^6 i> D 55 

OCOOr 6C0 


non 


32*2 FC = 1.1??*S0RTIB4C >**w 
32*4 FA=0. 

fw*ii .♦.122*ccps<pi*ie * c )/w> )**4 )*coscpi*ib*c )/ w) 
"FC = FC*FW/»-'S2 

IF (KTYPEI1 )*EQ.2 ) G 0 TP 2100 
GO Tp 4000 

TC 16,17 - C»ACK PUT PF SHOULDER 

3320 BUlW-Hl/2. 

Sl=C/tOBl > 

F C = W/P 1/ ( C*B1 )*TAN(PI*(C*B1 >/W) 

FC=S0RT(FC) 

FC = FC*( 1.4. 12 2*ICOS(PI*<ORl)/wn**4)/l.l?2 
FC=FC*SC»T(PI*C )*FUNT4(S1 ,01611 
" FA=0. 

IF <KTYPFC1I.EC. 21 GG TO 2100 
GO TO 4000 

c 

40C0 RETURN 

e002 FORMAT ( 1HC, »NO COMPACT CRACK FPR PART— THR CUGM • ) 
END 


00006*10 
0000**20 
00006*30 
0000*640 
00006*50 
0000 * 6*0 
0000**70 
000066HP 
0000*690 
0000*700 
0000*710 
0000*720 
0P00A7K 
0000*7-0 
0000*750 
000C*7*l) 
0000*770 
0000*7fi0 
OOCC67SO 
00006FCO 
00CC6L 1 0 
0000*620 
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FtINCTI hn fUNPl f X , IX ) 

Pl*EN$ir* APVC I 25 )« FUNS I 25*2) 

DATA A CVC /O. ,.0a,.07,.1?,. 15,. 21* .3a, .58 , . 7? , . 779 , .86, 1 . , 1.2% 

1 1 .^9, 1 .765,?.3?5,3.45,%,c».66,l0.,25.*50.f 100. ,lu000.,10000./ 
DATA FUNS /l. 122, 1. 1 1 . 1 . 1 , 1 . 08 , 1 . 07 , 1 .Oh , .97, . e* , .77, .75, .71, 

2 U. ,.17, .27,. 37 ,.a 2,.5,.6,« / l, .74,. 75* • 76 , .775,.82,.bfc>, 

3 .9, .9 6, .976 ,.P9,.99e , 1. ,1. , l. , 1 . , 1. , 1 . / 

IF (aOvCIII.gt.xi F,p TO 5 
IF I ACVC<25) .nt.xi GO TO 10 
5 WRITE <6,6000 X 
STCP 

10 DO 20 I=2,2t 

IF ( X • L T. AO'/C < IU GC TO 30 
20 CONTINUE 

I ~2«* 

30 J = I-1 

T=A DVC ( I )-A rvc I J) 

T = ( X — A 0 VC ( J ) >/T 

FUNP1=FUNS( J,IX)*T*|Fl •NS(MX)-F"!!M J,lX) ) 

RETURN 

6000 FrRMATdHO, *FUNP1 : X= < ,l®n?.2,» IS PUT CF RANGE M 

fND 


OCCC.tif ~ c 
ocooouc 
0CGO6«M3 
OOCOOCi.O 
00G0f»t7f* 
OGOPAdO 

ooor ** or, 
00006<*00 
00006910 
0000o c 20 
0G006V20 
0000 6<»~0 
OOGOA950 
0CC065AC 
0CCC7 <*70 
0 000t,9l 0 
0000 ASVO 
00007000 
oocr70io 
0GCC T G20 
0CCT7C7C- 

oococ-c 

0000 70 so 
00007060 

orrr 70 7C 

0 0007C: ? 


% , , 
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FUNCTION FlJNTl(X) 00007090 

C OCC0710C 

DIMENSION VALUE! 14) ,FUNS( l*»l 000071.10 

00C07120 

DATA VALUE /O . , .06 , . 1 ? ♦ . V*, . 34 , .4 , .48 , . 54, . 6* .7 2, . 8, • 06, .96, 1 ./ 00007130 

OATA FUNS /l. ,.‘'8,1. ,1.06, 1.24, 1.3, 1.36, 1.38, 1.395,1. 395, 1.38, 00007140 

1 1.36,1.3?, 1.297/ 00007150 

C ' 0OC0716G 

IF (VALUF (l).GT.X ) GO TO 5 0 0007 170 

IF ’ 1 value ( 14 ) .GE. x ) to tc io * ' ‘ OOCOTieO 

5 WRITE (6,6000) X 00007 1 VO 

STOP 00007200 

10 DO 20 I =2, 14 00007210 

IF (X .LF. VALUE! D) GO TO 30 OCC07220 

:c CONTINUE 0000723C 

T*TV ■ - 000072-.0 

30 J=I-1 000C7250 

T*VALUE(I 1-vALUE! J) 00007260 

T=(X-VALUF( Jl )/T 00007270 

■'* FUNT1=FUNS(J)4T*(FUNS(I)-FUNS(J)) 00007280 

RETURN 00007290 

C * " " *"* ~ ’ ' 0C007300 

6000 FORMAT (1H0,»FUNT1: X = *,IPE12.3,* IS OUT OF RANGE* ) 00007310 

ENO 00007320 
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FUNCTION FMNT’CX) 
riMfNSION VALUE! 16) ,FUNS(l6) 

DATA V A L U 1 * /0.*.G6,.l?,.16».2».26,.32,«62,«7,»76,.R,.F6f # v, •* 4 « 
1 .*7,1./ 

CATA FUNS /l.,.*ft,.96t.9?3,.<t5,.05'.95S*l.tl.01tl.Cl a l.*. ( »8* 

I .*o, • *?,.8e,.P26/ 

if < vallt m.oT.x > gc rr 5 
IF ! VALU c (l6) .GF.X) GO TP 10 
5 VMTF <6,6000 X 
5TUP 

io no ?o i=?,io 

IF (X. Lt. VALUE! I) > GO TO 30 
20 CONTI MU. 

1 = 16 

30 J=I-1 

T =V ALU F ( 1 )-V<*LUr( J > 

T = ( X-V A I (I C ( J ) )/T 

FIJNT 2 =FMN S ( J ) ♦T* ( FUNS I 1)-F»«N$(J) ) 

RFTIP.N 

* 

6000 FC9 MAT 1 1H0, * FUNT2 : X = »,lPr!2.3,» IS OUT OF RANG'*) 

FNfJ 


nrrr-r\' > ~ 

ocdr^c 

000073*0 
00007 3/ O 
OOCC 7370 
000C73HG 
000073*0 
00007400 
000 OVA io 
0000 7a? 0 
000C7a^C 
0CC07a-»0 
OCCC7460 
0 C0o7 a6C 
00007-70 
000074 Fo 
0CC074*C 
0 Of 07 =00 
0CC07 r -lC 
0CCC7F 20 
0000‘»‘>*'’0 
00007*4 0 
0000 7* 00 

or.ncvsoo 

0 000 7*70 


ORIGINAL Pagp ro 
F ROOR QUALITK 
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r 



FUNCTION FUNT3(X) 

c 

DIMENSION value/ 16) *FUNS( l <S I 

DATA VALUE /G. , . I 666, . 2 , . 25 , . 33 33 , . 9 ♦ . 571A , .6315 , .8 , . 88B8 , 

1 1. 0909,1 .2632*1. 6 ,2. IP 19,2. 6666* <*.8007/ 

DATA FUNS /l.fl.04*?* 1.0666, 1.075, 1.0916,1.25, 1,3333, 1.4166, 
1 l*^25|l#T5t2#f2*2^|2#72t3*64|4i4l6t8#/ 

C 

IF (VALUE I1T.GT.X) GO TO 5 
IF (VALUE (lfe).Gt.X) GO TO 10 
S WRITE (6, 6000) X 
STOP 

10 DP 20 1=2,10 

IF (X.LF. VALUEd) I GC TO 30 
20 CONTINUE 
1 = 16 

"30 J=I-1 

T*VALUE( I l-VALUF! J) 

T*( X-VALUEl J ) )/T 

FUNT3 = FUNS( J )+T * ( FUNS (ll-FUN S < J M 
“ RETURN 
C 

6000 FPRMATdHO, *FUNT3: X = *,IPE12.3,» IS OUT OF RANGE*) 

END 


00007*1 bO 
00007590 
00007600 
00CO7610 
000076 20 
00007630 
000076*0 
00007 6*. C 
00007660 
00007670 
00007600 
00007 650 
00007700 
00007710 
00007720 
00007730 
000077<*0 
000077*0 
00007760 
00007770 
00007780 
00007790 
00007b00 
00007610 
00007C2C 
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FHNCTI l> PUNT 4| S» R) 

f)IMfNSl n -4 £VAL (°) ,RVAL ( b) ,TAPl(0, f ) 


FATA 5VAL 
DAT ft RVAL 
TATA TAt-L 


IF IS. IT. 
IF IS.GT. 
IF IR.LT. 
IF (R.GT. 

nn 10 i s= 

IF IS. IT. 
in CP NT I Nil* 

I c = ° 

20 no 30 I R = 

IF Ik, IT. 

30 CCNT I ftj UE 


/ ,01 , .05, .1 , • 2 t t >6 1 «ti • 1 </ 

/('•»» 2S 1 / 

/11.22* 4 -. 5,C.A,5.f 3, 1.5,1. 122, 

S • o 2 , *> • 0 ^ 9 * ■ , *♦ • 1 , « 2 v 1 *45 1 1 • 1 2 t 

3.‘>5,3.‘ :6 >,?.-'>S,3.s,;: .'<,?•?, 1.4,1 .122, 

2. 51,2.51, 2. 51, 2. 51,?.**, 2. ,1.3*5, 1.122, 

2 .05,?, PS *2. <?%? .05, 2. ,1.8*1.3,1.122, 

1.77,1 .77, 1.77,1.77, i. 77 ,1.7, 1. 2 5,1. 12 2 1 
i.m5,1.<.*,1.**5, !.*.«, 1.4 5, 1.35, 1.2, 1.12 2» 

1 .2*1 ,! .25,1 .2b ♦ 1 .2 5, 1.2 5, 1.25,1. 18,1.122, 

1.12 2, 1.122* 1.1? '',1.122, 1.122, 1.122,1. 12 2,1.1 22/ 

svALiin r,r in moo 

<VAL(OD GC 10 1C no 

RVAt ( 1 1 ) GO TC 2000 

RVAl. IP 1) Of TO I(i<»0 

2,‘> 

L VAi ( i* ) ) or t** ?c 


2, F 

RVALimi) or n ..o 


AO I 1= I s- 1 
I FM 1 = I R— 1 

PS=5VAL< 1 SI-SVAL I 1 S M 1 » 

P£=I S-SVALI ISK1 ) ) / & £ 

PR=r.VALCIF)-FVftl I T r M I 
PR= I r-kV'ALI I r Ml ) ) /r>r 

FUM T^a| 1.-PS1+ ( l.-PT)*TAbLMRI^l ,Ii Ml )-»P5»Il .-PR )MA r l I ! F *1 1 ,11) 
coM*aFI!KU,» ft* I 1 .-IS )*Tftr>L( 1 R,I:»M)*»>S*PR*Ta* I III, JR) 

RETURN 

1000 FTITEf f ,6000 Z 
S1CP 

2CO0 WRITE(6,6«tt r .) *» 
f tmf 


60C0 FORMAT I 1 H f , • F UN T — t 
A COS FTP AH ( JFC, *FUNTft : 
FNO 


S = •tl J *fl2.3* # IS OUT OF RUNG'') 
R/R= •» 1 P r l?.’ ,• 15, HIT TF P/.U r ») 


r.oort-Tf 
nr 0<>7r^C 
000071 ' < • 
oc co / 

0 COT 7 ' 70 
OCCC ioliC 
ni'ooyf^n 
0000 7 “00 
oooo oin 

000570; 0 
0002 7*. 4 C 

oc?r.7“-r 

0000 7^, * o 
G000 7< AC 

000U7S70 
00007900 
0 0007*390 
eocci cc: 
n non < l C 

0000 RO 20 
OOOOFOTO 
Of COPOaC 

coco* o r o 
err of o/o 

O0COE07I. 

000*V;05-0 

u(uotnv) 

OOPPkKO 

o coo **. : \ o 

OCCTF 12- 

o oc r*i 

oono:: i<.o 
noof#?* i *<> 
POCG 1 t' r .' 
*‘000' 170 

croc one 

OOP,' ft 190 
0000*21 .o 
OoOOP ? l • » 

00003 2 re 
0000* 230 
occ:.i'?iO 

0 OCOfVSO 
0000* 2*0 
0 0Gi,P?70 

0 one F 2*0 
0C03".?V0 


Qo «u r f 
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'I 


X 


C 

C 


FUNCTION FUNT5(R,S) 

DIMFNSIPN SVALfll 1 , RVAL f 1 1 ) • TABU 1 1, 1 1 ) 


DATA SVAL /l. 01 ,1 .02,1.05,1.07,1.1,1.15,1.2 ,1.3 , 1 .5,2. , 3./ 

DATA RVAL / .02 * .04 , .06 , . 08 , . 1 , . 12 , . 14 * . 18 , . . 26 , . 3/ 

DATA TABL 

1 1.2»1.75,2.8,3.5,4»,4.3,4.7,5.*6.,6.5,7», 

2 ♦ 9 C ,1.38»1.85»2.,3.,3.3,3.6»4.,«».*>,4.75, 5., 

3 .B 7, 1.25 ,1.63, 2. ,2. 7, 3. 1,3. 5, 4. ,4. 4, 4. 7, 5., 

4 .82,1.12,1.5,1. 87, 2.3*3. ,3.5,4. V 4.5 V 4.75,5., 

5 .75 , 1 • 15 , 1 .5,2 . , 2 .6, 4.4 ,5. ,6 .5 ,7 • 5 «R.5 ,9.5 , 

6 .7, 1.1 5, l.*,5, 1 .85 ,2. 25, 5 .,6. 3, 7. 5,8. 5, 8. 5, 9. 5, 

7 " .55,1.1,1 .42, 1.84, 3. 3, 5., 6. ,7. 5, P.5,0.5,10., 

8 .44, 1.35, 2. ,3. 8, 4. 4, 5. ,6. ,8. ,9., 1C. ,11., 

^ «36,I.7,5.,5.,6.,6.5,7. ,9.,10.,ll. ,12., 

A .1P,3. ,5.,7.,6.,o.,10.,ll.,12.,12.,12./ 

IF (S.6T.SVAU11) I GC TO 1000 
“ IF CR.GT. RVAL 111 11 GC TO 2000 
IF (S .GE.SVAK 1)1 GC TO 5 

— r=i;ai 

5 IF (R.GF.FVAL ( 1 ) ) GC TP 6 
P = .0? 

6 CONTINUE 

DO 10 I S * 2 , 1 1 

IF (S.LT.SVALUSM GO TO 20 

10 continuc 
is=u 

20 DU 30 I R= 2, 1 1 

IF (R.LT.RVALUPM GC TO 40 
30 CONTI NUF 

1ft * 1 1 ' * 

40 ISMlsIS-1 
I Pm 1= I R-l 

PS=i>VAL(IS)-SVAL( I SMI ) 

ps=is-svau i SMi n/ps 

PR*RVAL (IR)-RVAUIRMll 
PPsfR-RVAHIRMl 1 )/PR 

FUNT5=< l.-PS)*(l.-PR)*TABL< 1RMl t IS»l)+PS*(l.-PR )*TARL <1 RM1, 151 
FUNT5 = FUNT5*FP*ll.-FS)*TABLMR,lf,Ml|4PS*PR*TARUIS,IR ) 

RETURN 


1000 WRITE! 6,6000) S 

- STOP 

2000 WRITE (6,6005) R 
STOP 

6000 FPRMATC1H0, »FUNT5: 
6005 FCPMAT (1H0, 'FUNT5 : 
END 


W/H * *,1PF12.3,* IS CUT OF RANGE*) 
RAD/H* • , 1PE12 *3 , • IS OUT OF RANGF* 


1 


0000R3OO 
00008310 
OCOO032O 
0 OC 0 8 330 
00006340 
0 0008 350 
0000G36C 
00008370 
00008380 
OOOO039C 
00008400 
00004410 
00008420 
00008430 
0000844C 
00008450 
00008460 
00008470 
00008480 
00008450 
0000P6CC 
0C008510 
00008 520 
00006530 
00008^40 
00008550 
000( 85M 
OOOOP670 
00008 5 60 
00008 650 
00008600 
00008610 
00000620 
00000630 
000GC640 
0P00F650 
00006 660 
00008670 
00008660 
00008690 
00008700 
0000*7 1 0 
0000 87 20 
00008730 
0 000 P 740 
0 CO 08 750 
00C0876C 
0000R770 
00006 760 
0000 8 7 c O 

ooooeeco 

0000P8 10 
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PRYV'R A** SCPI.C T 


COC GG 00 FTN V3.0-P3SS 


PRO 'RAM SCP..CT ( INPUT. OUTPUT. TAPEH=INPUT. TAPES- INPUT , 

* I APE <S=OUTPUT. PLOT) 

C THl; WOUTIN& GE'.t^ATF PLOTS ON AN SC4Q?0 FROM A PREVIO'JSL 


s 


10 


is 


?0 


?S 




3 > 


u o 


AS 


S'# 


5S 


C GENERATED D 'T A ► II E 

C 

C 

C Cun-tants A.vO o*ta declarations 

C 

IuT SEP COT 1 TL .lDDAT a .CODEnD .CONOR l .C0H0R2.CnHr)R-> .COHORT 
I W T r OER C0 M'->rS«cDHCrs»Y)STM0»Y2ST mu 
I NT GPP TI T!.E <G> .PHDPS(M.IS) 
r 1 f i r GEO T ITl C (4 , .Fl-ORS ( I 3.G) 

1 J T GEO CUT YPE , . UPTS.NPLOTS.NL AeLS.MXQPTStC AMRAS.AUAPY (A) 
* 1MTGPP N y l_U T S » PPR G.WX1 .RX2.RX3«^AA.RY 1 .PY2.PT' 1 ."'YA 
I' T GK« SI • • ' 2 « P ' l 
r 

C M«X <)F 20° U A T A POINTS 

C 

RE At XVAL(2 <1 ) . V 1 VA|. (201 ) .Y2VAL (201 ) 

R P At X M A X . Y «i A X . /' M I N • Y M I N 
R* ;>> xmax f N « y m A a IN.XMIMn.YMININ 
P LAi X INC I N . Y INL TM. X INC • Y 1 NC 
Fit At C.YPMI.K . X 1 . *.2« Y 1 . Y2 
H A XH I « Ml/ 

RKA. YmXTST'A) 

Cat « CUT I TL/AMT 1 TL/ 

U A T CDi>ATA/APD' TA/ 

C A T ' COOEr.-U/AHHi-PS/ 

C aT > CUMUP1 /AHH.ip I / 

Ca I / CD'tUR2 /A pm»P2/ 

CAT . CDsUp.T/AHH'iRI/ 

C A 1 CD'IURm/AHHuRA/ 

C«T COhUPS/AHH.'RS/ 

C t T • CUHUPG/AHh JPG/ 

C A I <> Y1SY •tO/l«X/ 

CAT > Y?sr<*i/1H0/ 

CAf\ MxTPTS/200/ 

CAf' YMXTST/. } , .s*l . .5./ 

C 

C I 1 IAL1ZF 

r 

XMl i = 0. 

Y I* = 0. 

NPL US = l 

r 

C RE A" pARAmEIER C A u C 

r 

RFA (5.100 »> X AX IM. YMAX IN.X INCIN.YINCIN.CAMPAS, 

<> A-’A'-'Y 

1000 FOR AT (ATI -.4. ; A.AA6) 


r 

r PRI -t 
C 




SV. 




wr I F 




INPUT CPELIF ICATIONS 

(G.20 0 ) 
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I 


PROGRAM 


CDC 6600 FTN V3.0-P3S5 


2000 FOR 'AT (/A lNPljl SPFC IF ICAT IONS*// ) 

wP 1 T E (6.20i'0> XMAXIN.YMAxlN.XINCIN.YINCIN.CAMRAc. 


2010 


ft 


uOARY 




F 0 * AT 

(* 

maximum x 

S 


1PE10.3/ 

<» 

* 

M-.XIMuM Y 

s 


1PF10.3/ 

a 

x 

InCPE'-'ENT X 

s 

*% 

1PE 1 0 • 3/ 

o 

x 

INCREMENT Y 

= 

*% 

1PE10.3/ 

ft 

X 

CAMARAS 

3 

t % 

13/ 

« 

X 

SPECIAL INSTRUCTIONS 

S 


4A6////) 


OEF'ULT SETTING-* IF NOT INPUT 
IF ( CAMP AS .LE. 0) CAMRAS = 35 
STA-T PLOT 

CALL IDENT (CAMRAS* ADAM Y) 

initial reao 

REA 1 ) (8« 101'.»ENUsQ9R) CUTYPE.T ITlE.CYPPLK 
REA > ( 8 » 1 9 1 1 ) C^TYPE*TITLE*CYPHLK 
IF (FOF(M)) 999. "»5 


.20HAAAAAAAAAAAAAAAAAAAA.300* 

.20HPBHHbBbriRB86bbHHBBPH,280, 

.i’OHCCCCCCCCCCCCCCCCCCCC^O. 

.20HOOOODDDDOUD(Ji)DI)L)DDOD.2aO» 

.20HtEEEEEEEEEtEEEFtEFEE*2?0. 

»?0HpFFFFFFFFFf-FFFFFFFFF*?00* 


1010 

C1010 

32 


MAT. PGM LOGIC 

CALt. PRINTV (-2" 
Cali pRJNrv (-2" 
CALL PRINTV (-20 
CALI. PRINTV (-2i 
CaLi. PRINTV (-2<» 
C »LI PRINTV (-2') 
CALL FRAMEV<3) 
CON' INUE 
NPL'iTS = NPlCTS 


input data for a plot 

RF AM (8, 10lo.ENM=999) COTYPE »*T1TLE»CYPBLK 
REA) (fi»10n> CUTYPE»TITLE*CYPBLK 
IF ( EOF ( 8 ) ) 999.3? 

FOR AT (AA.ux.5A1 0»A4.9X.E9.0) 

F OH AT (Aa*ax.9ais.9X.E9.0> 

CON f INUE 

ADVANCE FRAME FOP NEXT PLOT 

CALI. FRAMEVO) 

CON INUE 

IF > ’0 T TITLE CA^O - SEC ERROR 

IF ICDTYPE .NE. CDTITL) GO TO 970 
Ni >pt s = n 

X M A V s 0 . 


100 ) 

100 ) 

100 ) 

loo) 

100 ) 

100 ) 
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PROnPAM SCPLCT 


cnc 8*oo ftn v3.n-p355 


ns 


i?;> 


]?.> 


n> 


1 3 •> 


14ft 


14b 


15'* 


1S\> 


ISO 


1*5 


YMA' = 0. 

C 

C M A I i DATA PtAO LOOP 

C 

50 CON • INUt 

nop^s = nop r s ♦ i 

«t« > (h. 10?‘) C^T VPP , Y 1 VAL (NDPTS ) » Y?V AL ( NOPTS ) « Xv Al_ (NOPTS 
1C20 FOP AT <A4t JK12.3) 

C 

C C • <E * K FOR E <0 0>- OATA VALUES 

C 

IF ' COTYPE .EQ. COOEmO) GO TO 100 
C 

c EPP< R IF NO f DA I A CAPO 

C 

IF (CDTYPE .NE. COCATA) GO TO 9H0 
C 

c ERR *R I F .<Ax OA1A POINTS EXCEEDEO 

C 

IF 'nOPTS . jT. IXUPTS) <>0 TO 975 
r 

C ACCUMULATE MAX DATA VALUES 

C 

X M A * = AMAX t (XM :.X«XVAL (NOPTS) ) 

YMA« = 4MAX l ( YM-X • Y 1 VAL (NI)PTS) • Y^VAL (NO p TS) ) 

GO 0 SO 
100 CON I nue 
r 

C AOj.-ST UUMHf.R O' 1 OATA POINTS COUNTER 

r 

N UP r<5 = NDPTS - 1 
C 

c REAL HE'AOER cards 

c 

REA (8.103d) CDTYPE . (FHCPS ( I ♦ 1 ) « I = l.«) 

1030 FUR AT (A4.YAlft.AM 
C 1 030 FOR AT (Am, 12A6.A?) 

IF (COTYPt .NE. COPOP1) GO TO 9*5 

REA . ( 8*103 1 ) CDTYPE* (FHORSU • ?> ♦ I = 1 »M 

I y ( CUT YPE .NE. COPOPJ?) GO TO 985 

Rfc'A. (8.10 1 r ' ) CDTYPE. (FHQPS ( I *3) , I = 1,8) 

IF ( COT YPE .NE. COPOPJ) GO TO RMS 

REA, (8,1030 CDTYPE. (E H0RS ( I ,4 > , 1 = 1.8) 

1 F ( COTYPE .NE. CDPUR4) GO TO P85 
B t. A ' (8.103 0 CDTYPE, (EhORS ( I .5) * 1 = 1.8) 

IF (COT YPE .NE. C0P0P5) GO TO 9«S 

RtA (8.103- ) CUT YPF » (F HOPS ( I *0) , 1 = 1.8) 

IF ( COT YPP .NE. COhOPM GO TO 98S 
C 

C SET UP PAPM . EO'v THIS GP APH 

C 

C IF (NPUT MAX? LI CALCULATED mAXS - INPUTS ARE OVFRRTOUEN 

r 

ISO CON ' INUt 

If -X^AXIN .G p . X^AX) GO TO 1 S8 
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! 


! 1 ! 


I 

l 


1 

! ! 


PRO-AM SCPLCT 


CDC 6600 FTN V3.0-PJS5 


170 


1 7'5 


1 RO 


IRS 


19<j 


19S 


200 


20b 


210 


21 b 


220 


1 = 0 
C 

C AOj'tsT XMAX 

C 

1S2 CON * INUE 
I = I ♦ 1 

I* ( I .GT. 100) GO TO 965 
IF (10**1 .LT. XMAX) GO TO 152 
XMA < = 10**1 
GO o 160 
15R CON r INUE 

XMA< = XMAX IN 
160 CON 'INUE 

IF (YMAXIN .0E. YMAX) GO TO 168 
C 

C ADJUST YMAX 

C 

C ■) i 62 I 3 1 ♦ A 

If (YMXTST(I) .LT. YMAX) GO TO 162 
YMA « = YMXT^T ( I > • 

GO ’O 1^0 
162 CON' INUE 
1 3 0 

164 CON • INUE 

1 = 1*1 

IF ( 1 * (>T • 100) GO TO 965 
lh (10**1 .LT. YMAX) GG TO 164 
YMAv = 10**1 
GO ’0 170 
168 CON’ INUE 

YMA< = YMAX IN 
C 

C COMMUTE INCREMENTS 

C 

170 CON' INUE 
C 

C CALCULATE X INCREMENT IE not SPECIFIED 

C 

IF (XINCIN .GT. 0.) GO TO 175 
172 CON’ INUE 

XINO = XMAX / 10. 

GO r O 1H0 
C 

C IF PECIFIEO INCREMENT WOULD allow MORE THAN 10 TIC MARKS 

C 0YE-PI0E 

C 

1 75 CON 1 INUE 

IF ( X fj| A X/X INC IN .GT. 10.) GO TO 172 
X I N r 3 XINCIN 
C 

C CALCULATE Y INCREMENT IF NOT SPECIFIED 

C 

160 CON' INUE 

IF (YINCIN .GT. 0.) GO TO 185 
ie2 CONTINUE 
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PRQNPAM 


COC *>600 FT*' '/J.0-P35S 


YIN' = YMAX / ID. 

GO T 0 1 O0 

IF PEClFIEu INCREMENT WOULD ALLOW MOPE THAN 10 TIC MARKS 
OVE 'RIDE 

CON' inu£ 

IF (YMAX/YI <CIN .GT. 10.) GO TO 1«2 


2020 


CUTOUT CALCULATED SPECIFICATIONS 
CON ' INUE 

*«1TE (b « 2020 ) "PLOTS»NDdTS.XMAX«Y m AX.XINC»YINC»CYpML k 
FOR -AT (//* SPECIFICATIONS FOP PLOT *,13// 

► / N'JMRE^ OF OATm PTS = *« 10/ 


t MAXIMUM X 
t M IM »M Y 
X luCPE' ENT X 
x INC PE '‘ENT y 
X CYCLED PEW eLOCK 


= x. 1PF10.3/ 
= x. 1 PE 1 0 • 3/ 
= x. 1PE10.3/ 
= x. 1 PE 1 0 . 3/ 
= x. 1PE10.3) 


CtF'NE ANf) SET aCAL ING FACTORS FOP PLOTTING ARFA 
CON INUE 

CAL'. XSCAI.V (XMiN.XMAX.150.S0) 

CALI YSCALV (YMJN.YMAX.150.S0) 

CRA SO'IAPE SUP'-OUNO I NG d L oT AREA 

CON INUt 

GET PASTER '-CORPS OF ENDPOINTS 

CALI XSCLVl (XMlN.PXl .ERRFLG) 

C»U XSCL>/1 (XM<«x«RX2.EPPFL6) 

CAL' YSCLVl (YMiN.PYl .E hPFLG) 

CAL' YSCLV1 ( YM .X .RY2.EPPFLG) 

R X 1 = I XV ( X • IN ) 

RA2 = I XV ( X 'AX ) 

RY1 = I Y V ( Y '• I N ) 

RY2 = I Y V ( Y 'AX) 


CAL'. 
CALF 
Cut'. 
C f L ' 
C ALL 
C^Ll 
CALI. 
C ALL 


SQUARE 

XAXSTP 
YAaSTP 
X A XS YP 
YA <S TP 
X A X I S V 
YAX1SV 
XA< ISV 
YAX ISV 


(PX J 
(PX<r 
(PX2 
(WX l 
(PX ; 
(PX2 
(PX2 
(PX ! 


♦ P Y 1 
.RY 1 
.PY? 

.ryp 

.RY 1 
.RY ] 
.RY? 

.PY2 


• PX2 ) 

• PY2 ) 
.PX1 ) 

• P Y 1 ) 
» R X 2 ) 
.RY2) 
.RX l ) 
«RY1 ) 






CPA TITLE (ASSUME CENTERED ON INPUT) 


27S 
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PROGRAM 


SCPLCT 


I 


CDC 6600 FTN V3.0-PJ55 


2«0 


285 


290 


295 


300 


305 


310 


315 


320 


325 


330 


C 

C 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


CALL R I TE?V (56.13*1023»90*1*54*1.TITLE*ERRFLG) 
CPAw AXIS TITLES 

Call PRINTV (-6»6HCYClES*RX1090«RY1-40> 

CALL PRINTV (-6 » 6H0LOCKS* RXl 090 *RY2*43> 

CALL APRNTV (0*-1a,-6*6HIMCHES*RX1-125.PY1*454) 

CBAu INFO LINES 


SET UP TO DRAW INFO LINES ABOVE OR BELOW CENTER 
CEP r NDING ON INITIAL VALUES OF DATA 

RY3 = 950 

IF ( (Y2VAL(1) ♦ YlVAL(l)) / 2. .GT. YMAX / 2. ) 
00 '-*60 I * 1*6 

CAL! PRINTV (76*FHDRS(1*I) *RX1*16*MY3) 

RY3 = RY3 - 15 
260 CONTINUE 

CWAm SYMBOL LEGtNO 

RY3 = RY3 - 10 

CAL! PRINTV (-1J* 13HSYM0OLSJ A = .RA1M6.PY3) 
CALL PRINTV (1.Y1SYMB*RX1*124,RY3) 

RY3 = PY3 - 15 

CALL PRINTV (-13.13H c = *RX1*16*PY3) 

CALL PRINTV (1 *Y^5YMR,RX1*124*RY3) 

GENTRATE TIC MARKS AND LABELS 


L At)‘ L AND TIC MARK ORIGIN (0*0) 

CALL LINE2V (RXl-4,RYl *8,0) 

CALL LINE2V (RXl *PYl-4*0*8) 

CALI PRINTV (-1.1H0.RX1.RY1-16) 
CALI. PRINTV (-1 « 1H0.RX1-16.RY1 ) 

CRA < X AXIS LABELS 

XI - Xm IN 

NLAMLS = XMAX / XINC - .99 
CO 340 I = UNLARLS 

GET NEXT TIC MA-<K VALUE 

XI = XI ♦ X INC 

CALL XSCLV1 (XI .RX3.ERRFLG) 

RX3 = IXV (XI ) 

CRA » TIC MARK 

CALL LINE2V (RXJ*RYl-4.0*8) 


RY3 * 29 
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PROGRAM SCPLCT 


CDC 6600 FTN V3.0-P35S 


336 


34 rt 


34b 

t 


ISO 


35S 


36(< 


•>6b 


370 


37ra 


3 A <) 


30b 


C 

C LAri L TIC m »' i p k 

C 

CAL! LA^tV (XI «kX3-35«MY1-1A*-2*1*1) 

C 

C C'J^iJT E PLO'-K L ahEl VALUE 

C 

81 - XI / CfPBLN 
U? s HI ♦ 1 
XMl = HI « CYOBI.K 
X>i2 = B2 » CYPBLK 
C 

C GET VALUE CLOSEST TO CYCLE TIC MARK 

0 

If ( AOS ( XH2-X 1 ) .GT. At)S(Xl-XBl) > GO TO 320 

XHl = X M 2 

HI T «2 
320 CON IMUE 
r 

C IF 'OPE T«A:J ONE HALF A CYCLE TIC mARk Av/AY DON*T OpA .*/ 

C 

IF 'XM1 .GT. XI ♦ XlNC/2. .QD. XB1 .LT. Xl - XTNC/2.) GO 
C 

C GET WASTER CCOWOS 

C 

C C'aLi XSCLVl (XHl .wei ,EWkFlG) 

R~1 = I XV ( X > 1 ) 

C 

C CWA < r IC MA*« 

c 

Call LIUE2V (PP1 ,WY2-4*0»fl) 
r 

C L Ad L TIC MA«k 

C 

XHl = 01 

CALL L AML'/ (XB1«RH1-35»WY2*12*-2*1«1) 

34 0 COM ' INUE 
C 

C LAST TIC MARK AT XWAX (UNLESS UNUSUAL USER INCREMENT 

C Swt<'TFlE0) 

C 

C CAU. XSCLVl (XI »XINC.RX3,EPPFLG) 

R A3 = I XV ( X l ♦ X I NC 5 

IF ( I ABS (RX (-PX3) .OF. 5) GO TO 360 
CAL! LINE2V ( WX2 .PY 1 -4 » 0 ♦ S ) 

CaLI LAdL'/( amax»WX2-3S.WY1-1p«-2*1 . 1 ) 

C 

C 04 ' LAST HlCCK LAPFl IF IN PLOT AREA 

C 

r 

C COM'-UTE dLO'-K L'-PEl VALUE 

r 

HI -- X^AX / CYP'tL* 

X m 1 = m <» CYPBLK 
C 
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PROGRAM 


390 


39S 


<*oo 


AOS 


410 


415 


420 


425 


430 


435 


440 


SCPLOT CDC *600 FTN V3.0-P355 

C IF MORE THAN ONE HALF A CYCLE TIC PARK AWAY DON*T DRAW 

C 

IF (XOl .LT. XMAX - X1NC/2.) GO TO 360 
C 

C GET RASTER COORDS 

C 

C CALL XSCLV1 (XB1 «PB1 .ERRFlG) 

RH 1 * I X V ( X H 1 ) 

CALL LINE2V (RBI ♦Ry?-4,0*8) 

XH1 s 01 

CALL LAHLV ( X0 1 »RB 1 -35 *RY2* 1 2*-2t 1 • 1 ) 

C 

C CPA < Y AXIS LABELS 

C 

360 CONTINUE 
Y 1 s YMIN 

NLA^LS = YM4X / YINC - .99 
CO V0O I * I.NLaBLS 
Y 1 =. Y 1 ♦ Y1K-C 

C CALL YSCLV1 ( Y 1 •RY3*ERRFlG> 

RY 3 = I YV ( Y l ) 

C 

C CRA ' TIC mark 

C 

CALL LINE2V (RXl-4,RY3.8»0) 

C 

C lab*~l TIC MARK 

C 

CALI. LA8LV (Y1,RX1-9?*RY3*-3*1.1) 

380 CONTINUE 

c 

C LAST Tic MARK AT YmAX (UNLESS UNUSUAL USER INCREMENT 

C SPECIFIED 

C 

C CALL YSCLV1 ( Y 1 ♦YINC.RY3.ERRFLG) 

RY3 = I YV < Y 1 ♦YINC) 

IF { 1 AHS (PY3-RY2) .GF. 5) GO TO 400 
CALL LINE2V <PXl-4*RY2»e.0> 

CALL L ABLY ( YMA* »«X l-92»RY2»-3. 1 ♦ 1 > 

C 

C plot data 

c 

400 continue 

C CALL XSCLV1 (XVAL (1 ) .RX3*ERRFLG) 

C CALL YSCLVl (YlVAL(l) *RY3.ERRFLG) 

C CALL YSCLV1 (Y?v/AL(1)»RY4,ERBFLG> 

RX3 s IXV (X7AL ( J ) ) 

RY3 = IYV(YIVALU) ) 

R Y4 = I YV ( Y/?V AL < 1 > ) 

C 

c plo t symbol at urst oata point (both y values) 

c 

CALI PLOT V (RX3.RY3.Y1SYMB) 

CALI PLOTV (RX3«PY4.Y2SYM0) 

C CALL PLOTV (Rx3«RY3»20) 


PRONRAV 


SCPLCT 


CDC 6600 KTN V-1.0-M3S 


44S 


45" 


A5S 


46 0 


466 


470 


47-d 


440 


4MS 


490 


4 95 


C CAL' PLOTV ( fi X 3 • RY4 * ?9 ) 

IK <NOPTS .LE. 1) GO TO 431 

r 

C LOO ' EOK REbT O'- HATA points 

c 

CO 430 I = <i*NDRTS 
C 

C GET COORDS OK Nb XT POINT 

C 

C Cali. XSCLVl ( XV*L U > «RX 1 . ERRKLG) 

C CALI. YSCLV1 <Y1 VAL < I ) «RY1 .ERRELG) 

C CALI YSCLV1 ( Y?VAL ( T ) ♦«Y2.EP»KLG> 

h# X 1 = IXV(X7AL(M) 

RYl = I YV ( Y IVAL < I ) ) 

RY2 = I YV (Y^V AL ( I ) > 

C 

C PLOT SYMOOL AT RATA POINT (FOP BOTh Y VALUES) 

C 

Cali. PLOTV (RXl *PY1 ♦Y1SYMS) 

CALI PLOTV (RXl «PY2.Y2SYMd) 

C C ^L' PLOTV ( R X 1 • R Y 1 *?Q) 

C CALI PLOTV (RXl « RYJ? • ?9 ) 

. C 

C CWA- LINE K vcm PREVIOUS POINT TO TklS POINT 

C 

CAL'. L INEV (PX3* 'Y3.RXl ♦RYl ) 

CALI LINEV (RX3*RY4.RXI «RY2) 

C 

C SET UP KOW . iE XT POINT 

C 

RX3 = RXl 
RY3 = P Y 1 
RY4 = RY? 

430 CONTINUE 

431 Con ' inuE 

c 

c go *'0 next plot 

c 

G'i O 30 
C 

C VAX OK 10**100 LXCEPOE'J 

c 

96S CON'INUE 

*pl r K ( 6 » ?9 >0 ) 

?9°0 FOR 'AT (/X -1AX VALUE OK 10**100 EXCEEDED*) 

GO 'O 9*>S 

C 

C KW-T CAR!) in DATA OPOUP NOT A TITLE CAPO 

C 

970 continue 

w p 1 ' E ( 6 » ) 0 > ' 0 ) 

3000 FOR *AT </* ‘ISSlNG TITLE CARD - DATA SEOUENCE ERROR* ) 
GO T 0 9 >S 
C 

c VAX DATA POINTS EXCEEDED 


PROGRAM 


SCPLOT 


CDC 6600 FTN V3.0-P35S 


soo 


SOS 


510 


515 


520 


525 


C 

975 CON T INUt 

WRITS (6*10101 MXOPTS 

3010 FOP AT (/1X*I4** DATA POINT MAXIMUM EXCEEDED*) 

GO 0 9^6 
C 

C data CARD EaPEOED but not read 
C 

980 CONTINUE 

WRl'E (6*1020) 

3020 F OR ' AT (/A HISSING EXPECTED DATA CARD - DATA SEOutNCE ERP 

GO *0 995 

C . 

C ROW CARD M I 5 S I N ' ’ 

C 

985 CON'INUE 

WhIT. (6*10 <0) 

3030 F OR' AT (/* i-USSlNG HDR CARD - DATA SEQUENCE ERROR*) 

C-0 to 905 


C 

C Cfc N r RA[_ ERROR TERMINATION 

r 

995 CON ' INUE 

W'i r E (6* )0 "0 ) 

3090 FOR 'AT (//* ««* RUN TERMINATED •***) 
C CALI ENDJOfl 
ST0° 77 I 
999 CON’INUE 
C C ♦•LI t’NDJOH 

STO>-> 

END 


D-72 

U.S. GOVERNMENT PAINTING OPFICE 1*77 -740-44P/1 1? AfGION NO. 4 


